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ABSTRACT 


A computational study has been conducted on two wings, of aspect ratios 1.244 and 
1.865, each having 65° leading edge sweep angles, to determine the effects of nonplanar 
winglets at supersonic Mach numbers. A Mach number of 1.62 was selected as the design 
value. The winglets studied were parametrically varied in alignment, length, sweep, 
camber, thickness, and dihedral angle to determine which geometry had the best predicted 
performance. For the computational analysis, an available Euler marching technique was 
used. 

The results indicated that the possibility existed for wing-winglet geometries to equal the 
performance of wing-alone bodies in supersonic flows with both bodies having the same 
semispan . The performance parameters of main interest were the lift-to-pressure drag ratio 
and the pressure drag coefficient as functions of lift coefficient. The lift coefficient range 
was from -0.20 to 0.70 with particular emphasis on the range of 0. 10 to 0.22. In the range 
of interest, the first base wing with winglet used NACA 1402 airfoils for the base wing and 
was shown to have lift-to-pressure drag ratios within 0.136% to 0.360% of the NACA 
1402 wing-alone. The differences in total drag coefficients were within 0.111% to 
0.480% for these two geometries. 

The other base wing was a "natural" flow wing which was previously designed 
specifically for a Mach number of 1.62. Solutions for the "natural" flow wing with 
winglets may not have been valid. However, the results obtained showed that the "natural" 
wing-alone had a slightly higher lift-to-pressure drag than the "natural" wing with winglets. 
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CHAPTER 1 


INTRODUCTION 
1.1 Induced Drag and Winglets 

One of the most dominant parameters in determining aircraft flight performance, 
aerodynamics, and economics is drag. Drag consists of several different components; three 
of these components being profile drag, induced drag, and wave drag. For low subsonic 
Mach number flows, profile and induced drag are the only two forms of interest, with 
induced drag being the larger of the two as higher amounts of lift are generated. As 
transonic and supersonic Mach numbers are encountered, wave drag becomes a significant 
factor in the total drag component. To improve performance and aerodynamics, many 
methods and attempts have been made to reduce each component of the total drag. 

One of the more common ways to reduce total drag has been to attempt to lower the 
induced drag, which is also called drag due to lift. One method which has been used to 
reduce induced drag is that of altering the flow of air around the wing-tip of an aircraft. To 
prevent or reduce this wing-tip airflow or leakage, winglets have been and are being used 
for induced drag reduction. Winglets are small, nearly vertical, winglike surfaces mounted 
at the tips of a wing f For the winglets to be fully effective, they must efficiently 
produce significant side forces. These side forces reduce lift-induced flow above and 
below the wing-tip . Physically, the effect of winglets is to vertically diffuse the tip vortex 
at the tip and just downstream of the tip. Since the tip vortex is altered, the tilting of the 
lift vector is reduced thus decreasing the lift induced drag 2 . Because of the beneficial 
effects of winglets, they are presently being used on aircraft such as the Gulfstream IV and 
the Boeing 747-400 series 3 . 

1.2 Previous Research 

Although winglets are presently being used to reduce induced drag, they did not 
simply appear in the present form of nearly vertical surfaces resembling wings. 


PRECEDING PAGE BLAkK NOT FILMED 


Researchers have long acknowledged that a non-planar lifting system should have lower 
levels of induced drag than a planar wing. For example, Lanchester in 1897 patented an 
idea for vertical surfaces at the tips of wings. Theoretical analyses have also shown 
the potential for non-planar systems to reduce drag. However, early experimental studies 
typically showed that these plates or surfaces had little effect in reducing drag until high 
angles of attack were obtained. At lower angles of attack, any reduction of induced 
drag was typically more than offset by friction drag associated with the increased 
surface area of the vertical surfaces. These surfaces also tended to cause an increase in 
structural weight due to increased loads and moments. Because of the added weight 
penalty, a greater induced drag reduction could be obtained by simply increasing the span 
of the wing or adding wing-tip extensions while maintaining the same weight penalty. 

However, Whitcomb 1 showed in 1976 that earlier experimenters had not generated 
significant side forces with their vertical endplates. As stated before, these side forces 
were needed to reduce the outflow beneath the wing and inflow above the wing. 
Whitcomb also pointed out that in previous work the end plate had a low aspect ratio and 
therefore was not an efficient lifting surface. To generate the necessary side forces, 
Whitcomb used design philosophies typical for the design of wings; thus the vertical 
surfaces were termed "winglets". 

Whitcomb conducted an investigation of the tip mounted winglets which employed 
his new design strategy on a second- generation, wide-body, jet transport wing as 
reported in reference 1. The configuration studied consisted of the base wing, an upper 
winglet and a lower winglet. The upper winglet was placed rearward so that the increased 
velocity over the inner surface of the winglet and the higher velocity of the wing-tip 

O 

leading edge were not superimposed. Also, the winglet had a dihedral of 75 , i.e., a 15° 
cant from the vertical, which allowed reduced effects of mutual interference. The height of 
the winglet was 15% of the semispan, although an optimum height for each application 
must be a tradeoff between aerodynamic and structural considerations. Whitcomb stated 
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that the leading edge sweep should be roughly that of the wing for effectiveness at 
supercritical design conditions. Winglet effectiveness was also best when the winglet 
trailing edge sweep was near that of the wing. 

The design conditions for Whitcomb's test were for a Mach number of 0.78 and a lift 
coefficient of 0.44. However, multiple angles of attack were investigated for the 
configuration. The results of the test indicated that the lower winglet had little 
effect at the design conditions. The overall results showed for the subsonic Mach 
number of 0.78 and lift coefficient of 0.44 that winglets reduced induced drag by about 
20% and increased wing lift to drag ratio by approximately 9%. Also, the negative 
increments in pitching moments associated with winglets were less than those created by 
an equivalent wing-tip extension. Finally, the winglet improvement in the lift-to-drag 
ratio was more than twice as great as that generated by the wing-tip extension 1 with the 
same wing root bending moment. 

In a similar test, Flechner, Jacobs, and Whitcomb 4 tested a second generation transport 
wing with an aspect ratio of 7.13 at Mach numbers of 0.70, 0.80, and 0.83 for lift 
coefficients of up to 0.65. The winglet in this test had a cant angle of 18° and was toed 
out 2 ° relative to the fuselage centerline. In this case, toe out indicated that if the winglet 
had a dihedral of 0°, the airfoils would be rotated -2 * about their trailing edge. This test 
showed again that the induced drag was significantly reduced, by 13%, which also 
resulted in the total drag being lowered. The winglets once again caused small negative 
increments in the pitching moment coefficients at near design conditions. Winglets were 
found to produce substantially greater reductions in drag coefficient at near design 
conditions than a wing-tip extension based on equal effects on wing root bending 
moment coefficient. Also noted was the fact that the added skin friction and form drag 
of the winglets dominated at low lift coefficients. However, as the lift coefficient 
increased, the favorable effects of the winglets increased. 
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After winglets had been demonstrated to reduce induced drag on high aspect ratio 
wings at high subsonic Mach numbers, Heyson, Reibe, and Fulton 5 conducted a 
theoretical parametric study on winglets and wing-tip extensions using linearized 
subsonic potential flow theory. In their study, a number of aspect ratios, linear 
washouts, and taper ratios were examined for the base wing. For the tip extensions, a 
simple linear extrapolation of characteristics of the base wing was used. Finally, the 
winglets studied had no geometric twist and no taper. The winglet lengths were 15% of 
the base wing semispan and were canted out 15*. The leading edge sweep of the winglet 
was kept at 45 * as compared to the leading edge sweep of 30* for the wing. The results 
of this parametric study showed that it was possible for a properly designed winglet to 
develop an induced efficiency increment ranging from two to five times as large as that 
for a wing-tip extension with the same increment in wing root bending moment 
coefficient. 

Also, several points were made about beneficial effects and harmful effects of 
winglets. First, the efficiency factor and wing root bending moment both went up as 
the winglet length increased. Thus, aerodynamic benefits would have to be weighed 
against structural penalties. Next, leading edge sweeps and subsonic Mach number 
effects were examined. Unsweeping the winglet tended to be undesirable since this 
would have reduced the critical Mach number of the geometry, while sweeping the 
winglet forward would have created aeroelastic divergence problems. Because of these 
facts, rearward sweep was recommended to minimize interference and compressibility 
drag in the juncture. Increasing Mach number was found to have an adverse effect on 
winglet performance. The lowest aspect ratio wing fitted with a winglet, however, was 
least affected by the increase in Mach number. The researchers noted that "there was 
more opportunity for Mach number to create adverse interference effects of profile and 
compressibility drag with the winglet than with a wing-tip extension." The main 
emphasis, however, showed that winglets were effective on low aspect ratio wings as 
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well as on high aspect ratio wings. All of these trends were predicted by the linear 
theory potential flow analytical method, and were consistent with the experimental results 
of Whitcomb 1 . 

In Heyson, Reibe, and Fulton, the lowest aspect ratio studied was 4.0. However, 
highly swept wings such as those used in fighter configurations can have even lower 
aspect ratios. Kuhlman and Liaw 6 conducted a preliminary numerical design study of 
wing-winglets where the aspect ratio of the base wing ranged from 1.75 through 2.67. 
These wing planforms typically had a taper ratio of 0.2 and leading edge sweeps of 45° 
to 60°, while the winglet length was held at 15% of the wing semispan. For this study, a 
lift coefficient of approximately 0.3 was the design point for a Mach number of 0.8. This 
examination of lower aspect ratio wings versus corresponding wing-winglet geometries at 
transonic speeds indicated that the wing-winglet configurations had decreases in pressure 
drag of 15% at the design point as compared to wing-alone geometries. Total drag for 
wing-winglet shapes were 12% less than the corresponding wing-alone geometries. 
These predicted drag reductions were similar to those obtained by winglets on higher 
aspect ratio wings. 

Kuhlman, Liaw, and Cemey 7 also investigated those geometries in reference 6 at off 
design conditions, as well as winglets with lengths of approximately 25% of the base 
wing semispan. For this study, increases in the lift to pressure drag ratio of 14.6% to 
15.8% were predicted for wing-winglets as compared to corresponding wing-alone 
configurations at the same lift. For the longer winglet, 25%(b/2), the lift to pressure 
drag ratio was increased 19.4% relative to the wing-alone case. The lift-to-total drag 
ratio was increased by 15.4%. One of the final conclusions of this study stated that the 
predicted percentages were mainly independent of the base wing aspect ratio or leading 
edge sweep. However, as the Mach number was increased above 0.9, the onset of drag 
rise was evident. From the results obtained, winglets were seen to have the potential to 
reduce drag on low aspect ratio wings, significantly more so than on high aspect ratio 
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wings. This was due to the fact that the percentage of reduction for the drag coefficients 
was the same for high or low aspect ratio wings. However, the lift to drag ratio was lower 
for a low aspect ratio wing and a reduction in the drag coefficient for a low aspect ratio 
wing would have a larger effect in improving performance, i.e. lift-to-drag ratio. 

Cemey 8 investigated the same low aspect ratio planforms as in reference 7, but 
used supercritical airfoils instead of conventional airfoils. The results of this study 
showed that at a lift coefficient of 0.39 and at a Mach number of 0.9, the supercritical 
wing-winglet design produced 2.8% less pressure drag than the conventional airfoil 
design. However, benefits were not obtained at lower Mach numbers in this case. 

All of the previous work discussed to this point was for either high or low aspect ratio 
wings at flow speeds which were typically high subsonic or transonic Mach numbers. 
Brown 9 conducted a numerical study to enhance performance of low aspect ratio wing- 
winglet geometries at transonic velocities. However, once the transonic designs were 
finished, the configurations were evaluated numerically at a supersonic Mach number of 
1.6. For this study, two separate computer codes were used. The first code, SIMP *0, 
solved the conservative form of the full potential equations to obtain the supersonic results. 
The other code, called EMTAC n , solved the Euler equations to obtain solutions for wing 
and wing-winglet geometries. For the transonic Mach numbers, a pressure drag reduction 
of 16.3% was obtained for two wing-winglet geometries as compared to similar base 
wings. Another geometry of a wing with winglet was shown to decrease the total 
drag by 9.5% over the comparable wing. These results were typical of results 
demonstrated earlier for low aspect ratio wing-winglet configurations. The study then 
focused on the supersonic Mach number of 1.6. In this instance, the two cropped delta 
wings with winglets that had showed a drag decrease transonically had the reverse 
effect at supersonic speeds. The drag coefficients increased as much as 8.3% at a lift 
coefficient of 0.13 as compared to the wing-alone configuration drag. The 
conclusions reached were that winglets were still capable of reducing drag at transonic 
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Mach numbers, but at supersonic speeds, the winglets would have to be designed for 
that flight regime. Thus, the transonically designed winglets were not expected to be a 
fair test of the effects of winglets for supersonic Mach numbers. 

In the previous studies and investigations presented, the majority of the emphasis has 
been the effect of winglets on pressure drag or on induced drag. However, other 
viewpoints do exist. Asai 12 in particular has stated that the main reason that a winglet 
was more effective than a tip extension in drag reduction was not due to the fact that a 
winglet was non-planar, but that a winglet has such a narrow chord length that the 
relative friction drag penalty was small compared to the friction penalty of a tip extension. 

In the present review, winglets have been shown to be effective in reducing pressure 
drag and total drag for both high aspect ratio and low aspect ratio wings. However, these 
works have focused on subsonic or transonic Mach numbers. Recent papers have begun 
to place emphasis on the need for drag reduction at supersonic speeds l3 . In 
Bushnell's paper, an assertion was made that there is a very real need for improved 
supersonic aerodynamic performance, and that even a 10% improvement in L/D would 
be significant. With growing interest in a high speed civil transport and high speed 
business type transports the importance of methods to reduce drag at supersonic 
speed is steadily growing. 

1.3 Objective of Present Study 

The objective of the present work was to determine the effects of winglets on low 
aspect ratio wings in supersonic flows. In particular, the design range of interest was for a 
Mach number of 1.62 and lift coefficients approximately from 0.10 to 0.22 15 - 16 . This 
design range was established as desirable by the previous research in references 15 and 
16. Performance was also of interest at higher Mach numbers and lift coefficients. To 
determine these effects, the study was purely numerical, using codes that employed the 
unsteady Euler equations and the full potential equations. A generic and arbitrary wing 
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was selected and used as a base wing. Also, wing-tip extensions were used for 
comparison purposes to establish the winglets effectiveness or lack thereof. These 
extensions would allow wing-winglet geometries to have approximately equal surface areas 
and semispan lengths as compared to wings with extensions. Although subsonic design 
analysis emphasized root bending coefficients, this study was intended only to determine if 
any aerodynamic benefit could be found from the winglets. 

A secondary goal of this study was to determine the effect of winglets designed for the 
"natural" flow wing of references 15 and 16. Only the outer 10% of the semispan of the 
"natural" flow wing was allowed to be altered in this study. If improvements could be 
shown in performance and in drag reductions for the "natural" flow wing, then the 
"natural" flow wing model presently being built at NASA-Langley would be altered at 
the tip and the winglet designed by this study would be mounted for testing. 
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CHAPTER 2 


METHOD OF ANALYSIS 

2.1 Euler Marching Code Description 

An Euler method was chosen for the aerodynamic simulations in the present work. 
The code selected was called EMTAC u , for Euler Marching Technique for Accurate 
Computation. This particular code numerically solved the unsteady Euler equations 
which, in turn, governed the exact nonlinear inviscid gas dynamics of the flow. By using 
an Euler method, strong shocks should be captured by the code as well as weaker shocks. 
Also, the use of Euler equations would allow rotational and vortex effects to be 
represented in the flow around the geometry of interest. Because of the nonlinearity of 
the method and its potential for predicting vortex effects, EMTAC should have yielded 
a realistic representation of the flows considered. 

The EMTAC code was used on the voyager CRAY-2S supercomputer at NASA- 
Langley, accessed from West Virginia University via WVNET and then TELNET. In 
general, the code was developed to solve the unsteady Euler equations in three dimensions 
at supersonic speeds with subsonic pockets. To solve the equations, the calculations 
were done in a marching direction aligned with the axial direction of the given 
aerodynamic body. At each marching step, the flow quantities were solved for in the 
cross flow plane. Upon obtaining these results, the marching procedure continued axially. 
However, this continuous marching was for supersonic regions only. For subsonic 
regions or subsonic pockets, the marching swept back and forth axially across the region to 
reach a converged solution. In this manner, the solution for the entire flow field around a 
particular geometry was generated. A summary of the EMTAC code, governing equations, 
and solution method has been given in Appendix A. 

Since the EMTAC method used a finite volume scheme, several steps of importance 
were essential for the calculation method previously described. The first slep was 
for the configuration geometry to be described at a limited number of discrete points. 
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The geometry of interest was represented by a series of cross flow plane cuts as shown in 
figure 2.1.1. For each cross flow plane, the cut consisted of several patches which were 
described by 2 to 30 points in the y-z plane. Another restriction to the cross flow plane 
geometry was that its description should begin at the centerline of the upper surface and 
proceed outboard. Once the maximum outboard point was encountered, the points were 
then ordered from outboard to the lower surface centerline. This surface geometry, once 
generated, was used by EMTAC to set up a body fitted coordinate system so that the 
boundary conditions could be enforced at the body surface. When calculations were 
necessary between described cross sectional geometries, EMTAC established a key 
point system that was generated using cubic splines. These key points were then joined 
from one prescribed geometry station to the next. The intermediate axial cuts were linearly 
interpolated from the two closest user prescribed cuts. This system allowed geometries to 
be established and boundary conditions to be enforced wherever flow field calculations 
were required. 

The second step was that of grid generation. Numerical methods, especially finite 
difference schemes, need the flow region discretized into grids. This particular code used 
an elliptic grid generator in the cross flow planes. For the grid generation to start, the 
gridding routine placed a grid around the already established cross flow body surface 
geometry. The users control of this grid generator was limited to specifying the number of 
radial and circumferential points around the geometry. Also, the user was allowed to 
control certain radial lines and what angles these lines would have as referenced to the 
horizontal axis. This permitted some control of the grid and helped in preventing the grid 
from overlapping itself at complex geometric regions. 

A third essential area of the code was solving the discretized governing equations. 
A description of the equation manipulations and solution process has been given in 
Appendix A. 
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The last topic for the code description was the output of relevant information. Once the 
EMTAC program finished solving at a marching plane, a subroutine would compute 
axial force, vertical force, and side force by numerically integrating the pressure acting on 
the elemental surface areas. After obtaining the forces, lift, pressure drag, and moment 
coefficients were calculated based upon user prescribed reference areas and lengths. These 
coefficients, forces, and pressures as well as other flow field data were presented in line 
printer form. Flow field and surface variables were also written to a separate pair of files 
for graphical display. Further details of EMTAC were given in Appendix A and reference 
11 . 

2.2 Full Potential Code Description 

To attempt to verify the results from the EMTAC code, another numerical code was 
used. This code was named SIMP, for Supersonic Implicit Marching Potential *0. SIMP 
was very similar in its mode of operation compared to EMTAC except that the SIMP code 
numerically solved the exact nonlinear potential equations. The code also had a 
marching procedure that proceeded from the apex to the trailing edge of the geometries 
studied. As in the case for EMTAC, the SIMP code could sweep back and forth through 
subsonic pockets or bubbles. The exact same methods were used for this code for 
defining the geometry and gridding around the geometry as were used for EMTAC. This 
similarity was one of the major reasons why SIMP was chosen to verify some results. 
For a more complete description of the SIMP code, the reader is referred to reference 10. 

2.3 Friction Drag Analysis 

Although the codes used were able to give flow field properties, non-dimensional 
coefficients, and forces, they did not calculate forces due to friction or friction drag 
coefficients. To determine the total drag on any particular geometry, the coefficient of 
friction needed to be calculated and added to the pressure drag coefficient determined by 
either program. Also, note that the pressure drag given by the codes was a combination 
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of wave drag and induced drag. To find an approximate skin friction coefficient, an 
assumption was made that the flow over any of the geometries, wing-winglet or wing with 
tip extension, would have turbulent flow. Another simplification was made that the 
geometries would be thin enough to allow use of a frictional coefficient for a flat plate to 
estimate the frictional drag. The equation finally selected was given as: 


Cf = 


0.523 


(2.3.1) 


In 2 (0.06 Re L ) 

which was valid for a flat, smooth plate at any turbulent Reynolds number 17 . Because 

this equation was based on a Reynolds number with characteristic length, L, the length 

was selected to be the mean aerodynamic chord of the geometric body of interest. 

The mean aerodynamic chord was found by using one of the following equations 18 : 

b/2 


c = f Jc 2 (y) dy 


(2.3.2), or 


c 


2 c r 1 + X + X 2 

3 1 + X 


(2.3.3). 


The value of ReL was obtained by multiplying the Reynolds number per foot times the 
mean aerodynamic chord. The Reynolds number per foot was listed in reference 19 as 2 x 
10 6 per foot. This was the nominal operating Reynolds number in the Langley Unitary 
Plan Wind Tunnel. To change the configuration in this study from nondimensional units to 
English units, the scale factor of 3 feet per 100 units was used. This value was obtained by 
knowing that the root chord length in this study was 100 units and that a typical model 
length for the Langley Unitary Plan Wind Tunnel was approximately 3 feet. Thus from 
equations 2.3.1 through 2.3.3, a skin friction coefficient could be found and in turn, a 
total drag coefficient calculated. 

From the previous discussion, a method has been given that would find the predicted 
aerodynamic performance of any geometries that should be of interest. The next topic to 
be addressed is the selection of the geometries which have been numerically studied. 
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CHAPTER 3 


DESIGN AND ALTERATION OF GEOMETRIES 

3.1 Base Wing Geometries and Alteration 

In general, the base wing was selected to be of a generic nature. The wing selected was 
a cropped, or clipped, delta wing. The leading and trailing edge sweeps were 65° and 0°, 
respectively. Also, a taper ratio of 0.2 was chosen and an arbitrary root chord length of 
100 units was established. Because of the taper ratio, the root chord choice and the leading 
edge sweep, the tip chord was automatically set at 20 units, the semispan of the base 
wing was 37.305 units and the aspect ratio was 1.244 (Fig 3.1.1). The parameters listed 
gave the essential details of the base wing planform. 

Several considerations went into determining the planform and its dimensions. One 
reason for selecting a sweep angle of 65' was to contain the geometry entirely behind the 
shock wave created by the apex of the wing. This large sweep angle would allow larger 
Mach numbers to be studied without the leading edge becoming supersonic. The second 
reason that the leading edge was fixed at 65' was that the "natural" flow wing ^ to be 
studied also had a 65 degree leading edge sweep. The trailing edge sweep angle value was 
also set to mimic that of the "natural" flow wing trailing edge, and to provide simplicity 
for using the EMTAC and SIMP codes. In either of the codes, swept trailing edges 
could have been modeled, but the user had to supply the analytical definition of the trailing 
edge. By keeping the trailing edge sweep set at zero degrees, the edge could simply be 
defined once, and the codes would not have to be altered continuously. 

The root chord was set at a non-dimensional value that would help in avoiding computer 
errors due to round-off in the geometric description. Also, the selection of a 0.2 taper ratio 
allowed a wing-tip chord length which would be large enough for winglets to easily be 
attached. With a large tip chord, a winglet large enough to affect the flow could be 
defined. The previous considerations were the main factors in determining the 
development of the base wing planform. 
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Once the general dimensions of the planform had been established, the next detail of the 
base wing design was to determine its aerodynamic shape. In this case, the NACA four 
digit airfoil series 20 was selected to represent the streamwise geometric design. The four 
digit series was chosen due to the airfoils ease in being analytically defined and the fact 
that no one airfoil series was obviously better than another for the purpose of this study. 
Due to a lack of obvious choice, the NACA 1402 was the final airfoil chosen to use for the 
base wing. For more detail of the NACA four digit series nomenclature and analytical 
equations see Appendix B or reference 20. The selection of the airfoil shape completed 
the simple base wing design since no geometric or aerodynamic twist was used. 

Although the base wing definition process was completed, the geometry still needed 
to be converted from its defined form into a usable format for EMTAC and SIMP. To 
conduct this conversion, a simple FORTRAN program was written (Appendix C). The 
conversion program started with the wing being described by a series of streamwise 
airfoils (Fig 3.1.2), NACA 1402 in this case, which were in turn defined by a set of 
discrete points. Each of these airfoils could have had a different amount of twist about the 
trailing edge and/or could have had a different airfoil shape from the others. 

Once the geometry was adequately defined, cross sectional cuts were needed in order 
that the SIMP and EMTAC codes could be used. The previously mentioned FORTRAN 
program was used to perform this manipulation. This program allowed the user to 
specify the number and location of cross sectional cuts desired. After the location of 
the cross sectional cut was determined, an interpolation process began. Interpolation was 
performed first on the upper surface of the wing. At each airfoil location a new thickness 
and span location were found at the desired axial location and written to an output file. 
Next, span distances and upper surface locations were found between the present airfoil 
and the next outboard airfoil. Once the points located between the two airfoils were 
calculated, the next outboard airfoil was considered, then in between airfoils, and so on 
until the leading edge or the tip of the wing was encountered. Afterwards a similar 
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interpolation procedure was used on the lower surface of the wing. However, this 
marching process was performed from outboard to inboard until the root chord of the 
wing was encountered. Upon completing one cross section, the program calculated the 
next downstream cross-sectional cut until the trailing edge was reached. 

The cross sectional geometric cuts obtained in this fashion were still not useable for 
EMTAC or SIMP, since the cuts did not contain the same number of points per axial cut. 
A final program, EXPCONX, was written to take the previously described output and 
interpolate spanwise on each cut such that there would be an identical number of points 
per cross sectional cut (Appendix D). To do so, the upper surface coordinates of a cut 
were read from a file. This surface was separated into two lengths along the local half 
span. The lengths were defined by the user in terms of a percentage of the local semispan. 
This allowed a sudden change in geometry or more complex regions to be modelled 
more accurately with a greater number points. Interpolations were performed until the two 
patches had an equal number of points, where in this particular instance 30 points per 
patch were selected. The new coordinates were written to a file in the EMTAC and SIMP 
format. The lower surface coordinates were next read by EXPCONX and treated in a 
manner similar to the upper surface. Examples of the final results of conversion from 
streamwise airfoils to cross sectional cuts can be seen in figures 3.1.2 and 3.1.3, 
respectively. 

The other base wing considered in the present study was the "natural" flow wing 
described in references 15 and 16. The "natural" flow wing was designed with a leading 
edge sweep of 65’ and a trailing edge sweep of 0* for a Mach number of 1.62. The design 
lift coefficients ranged from approximately 0.0 to 0.4 with special emphasis placed on 
coefficients of 0. 1 and 0.3. To design the "natural" flow wing, the codes described in 
references 10 and 1 1 were used. These are the same codes used in the present study. The 
final dimensions of the planform were a root chord of 100 units and a semispan of 
46.63 units. 
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The "natural" flow wing design differed from previous supersonic designs in several 
ways. First, the typical thickness distributions of uncambered delta wings result in a 
geometry which is conical about the wing-tip. However, for supersonic flow, the flow 
field is nearly conical about the apex of the wing. Also, the supersonic flow tends to 
have a recompression line which is independent of the geometry of the wing and exists 
along a ray that starts at the wing apex (figure 3.1.4). In figure 3.1.4, the recompression 
line as well as the maximum thickness line have been indicated. Outboard of the 
recompression line, the pressure tends to be lower for the flow and thus creates a suction. 
Inboard of the recompression line, pressure increases. From geometric and flow 
considerations, adverse drag effects were present in regions A and C while beneficial 
effects were gained from zones B and D. The "natural" flow wing was designed to take 
these effects into account. In doing so, the maximum thickness line was swept back so 
as to take advantage of the recompression line (Fig 3.1.5). When the trailing edge was 
encountered, the particular airfoil was stopped and a base area along the trailing edge 
was produced. 

For the airfoil definitions in references 15 and 16, the modified NACA four digit 
series was used. The "natural" flow wing was analytically altered in a parametric 
study to find the best thickness, leading edge bluntness, and camber 1 ^. Another 
parametric variation was a "shearing" process that was used to alter the thickness of the 
airfoils as they changed spanwise. In this manner, the "natural" flow wing design 
process was completed. The final combination of the items previously listed for the 
"natural" flow wing gave a 10% drag reduction as compared to near conical wings at a lift 
coefficient of 0.1 and a 14% drag reduction at a lift coefficient of 0.3 as also compared to 
a near conical wings. To attach winglets to this geometry in the present study, the outer 
10% of the semispan was allowed to be altered. 
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3.2 Wing-tip Extensions 

For comparison purposes, wing-tip extensions have been used so that wing geometries 
would have approximately the same semispan as wing-winglet geometries. Since the 
base wing had no geometric or aerodynamic twist, the tip extension was simply selected 
to consist of NACA 1402 airfoils and stopped at a semispan of 40 units. The 
"natural” flow wing did not have a wing-tip extension and was compared to the wing- 
winglet configurations as it was originally designed. 

3.3 Winglet Design and Configurations for the NACA 1402 Wing 

Since no known numerical or experimental study had been conducted specifically on 
winglets at supersonic speeds, the design philosophy which has been successful for 
transonic designs has also been used as a starting point in the present study. The general 
planform of the winglet had a trailing edge sweep of 0° where the winglet trailing edge 
coincided with the trailing edge of the base wing. The length of most of the winglets 
studied was approximately 15% of the base wing semispan. The winglet leading edge 
sweep was parametrically altered and should be noted for each winglet or group of 
winglets. The root chord of the winglet was typically 65% of the tip chord of the base 
wing except where noted. This winglet root chord length allowed the leading edge of the 
winglet to be placed in the approximate location of the maximum thickness of the wing-tip 
airfoil. The airfoil shapes that describe the winglets were essentially divided into two 
groups. The first group had zero thickness and was described by mean lines of the NACA 
four digit series. The second group of airfoil shapes was described by the NACA four 
digit series and typically had a maximum thickness of 4 percent of chord length. To attach 
the winglet to the base wing, a FORTRAN program (Appendix E) was used to linearly 
interpolate a series of four airfoils between the base wing tip airfoil and the winglet 
root airfoil. These four airfoils were used to define a curved juncture between the 
winglet and wing. 
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Since the winglets were described by airfoils consisting of discrete points, they 
were also manipulated by the programs listed in Appendices C and D. These programs set 
the geometries into appropriate EMTAC and SIMP format. Once again, the first 
program described operated by interpolating on the upper surface from inboard to 
outboard. However, the geometry was no longer of a planar nature. To compensate for 
this fact, the winglet airfoil coordinates were first calculated in the plane of the wing and 
then the winglet was rotated about the trailing edge of the tip chord and span location. Each 
airfoil in the juncture was rotated about the trailing edge of the wing-tip airfoil. Once the 
proper rotations had been performed, the program listed in Appendix C shifted the 
juncture and winglet such that the geometry did not overlap itself in the spanwise direction. 
The process of obtaining cross-sectional cuts was carried out in the same fashion as for 
the wing-alone. The program that gave the same number of points per patch also ran 
exactly as described earlier for the wing-alone. 

Although a general planform for the winglet geometries had been established, several 
parametric alterations were conducted on both the zero thickness winglets as well as the 
4% thick winglets. Also, some special cases were investigated to help provide insight or 
to attempt to lower the pressure drag results. The first geometries which will be discussed 
are the zero thickness winglets. These winglets were studied over a geometric angle of 
attack range from -5' to 15°. The basic zero-thickness winglets had a winglet leading edge 
sweep of 65', and a dihedral or an anhedral of 75'. This allowed a comparison to be 
made of the effects of having a winglet pointing up relative to a comparable winglet case 
pointing down. A wide range of winglet incidence was investigated for both up and 
down winglet cases. For both dihedrals, the 0% thick winglet was toed out 0, 2, 4, and 6 
degrees. These winglets were toed in as well at angles of 2, 4, and 6 degrees. The terms 
"toed in" and "toed out" reflect the direction that the winglet was rotated about its trailing 
edge. Toed out indicated that for a winglet with dihedral, the airfoils of the winglet, if they 
were in the plane of the wing, were rotated to a negative geometric incidence. This 
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could also be viewed as shifting leading edge outboard from the geometric centerline of the 
body if the winglet was perpendicular to the wing. For toed in, a winglet with dihedral 
would have positive incidence in the plane of the wing. When a winglet had anhedral, 
negative dihedral, the incidences were reversed as compared to the positive dihedral case. 
These geometries were studied using the EMTAC code and the wing-winglet case with 
the highest predicted lift-to-drag ratio was selected as compared to all the other cases, 
with a particular emphasis in the lift coefficient range of 0.10 to approximately 0.22. 

After selecting the best geometric alignment and winglet dihedral, up or down from the 
wing plane, the next parametric test was conducted on the leading edge sweep of the 
winglet. This parametric variation was conducted on the sweep angles of 0°, 22°, and 
44° where 65° was already completed due to the initial parametric study. Again, the 
leading edge that produced the lowest pressure drag or best lift-to-pressure drag ratio in the 
lift coefficient range of 0.10 to 0.22 was selected as most desirable. The geometric 
alignment or parameter that resulted in better performance was set as a fixed value in the 
remaining parametric variations. 

Initially, the zero thickness winglets were merely flat plates. Because of that fact, 
another parameter that was altered was the camber of the winglets. The camber selections 
were for m equal to -0.02, -0.01, 0.00, 0.01, and 0.02 ,where "m" is the maximum 
ordinate of the mean line expressed as a fraction of chord, as has been defined for the 
NACA four digit series in Appendix B. Of course, the 0.00 case had already been 
investigated since it was the planar case. Finally, the last parameter to be investigated was 
the winglet length. Since the winglet length had been held to 15% of the base wing 
semispan, two more cases were studied for winglet lengths of 10% and 12.5% of the 
semispan. Once the effects of length variation had been examined, the study of zero 
thickness winglets was concluded. 

Although a zero thickness winglet gave an indication of the effectiveness of winglets on 
altering the supersonic flow around the NACA 1402 base wing, they were not reasonable 
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for a real design. Because of this fact, the performance of winglets with thickness was also 
examined. A similar strategy was applied to the winglets with thickness as was applied to 
the winglets without thickness. Once again the winglet planform was selected to be similar 
to that of the flat plate winglet except the leading edge sweep was set at 50' which was the 
sweep typical of the transonic designs. The same angle of attack range was run for each 
geometry, -5' through 15*. As before, both 75' and -75' dihedral was studied for a 
series of toe in and toe out angles. The airfoil selected for the winglet in this case was a 
2404. This somewhat highly cambered airfoil was selected due to the fact that large 
amounts of camber had been found to be helpful transonically. The toe out angles for the 
75' dihedral winglet were 2', 3', and 4'. For the anhedral winglet, the toe in angles were 
I*, 2', 3°, and 4° while the toe out angles were 0' and 1'. After these selected geometries 
were studied using the EMTAC code, the geometry that had the best lift-to-pressure drag 
ratio and pressure drag polar as compared to the other cases was the one selected to 
continue with other parametric variations. 

With the dihedral fixed as well as the toe in or toe out angle, the camber of the winglet 
airfoils with thickness was varied. Using NACA four digit series notation again, "m", 
the maximum ordinate of mean line expressed as a fraction of chord, was selected to be 
-0.01, 0.00, 0.01, and 0.03 while the 0.02 case had been tested using the NACA 2404 
airfoils. After the camber series had been compared, three parameters of interest were left 
to be studied. These parameters were leading edge sweep, winglet length, and dihedral 
effects. For the variation of the winglet leading edge sweep, the angles of 60°, 65', and 
68' were chosen. One of the final parameters was the winglet length. Since the winglet 
length had been 15% of the semispan for the initial studies, the other lengths were 
selected as 7.5%, 10.0%, and 12.5% of the base wing semispan. The final parameter 
studied was the effect of anhedral. For this alteration, angles of 30* and 50' anhedral were 
selected. Upon completing the test cases of length, sweep, and dihedral, the remaining 
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studies were the special case winglets and the winglets applied to the "natural" flow 
wing. 

The special case which was studied in most detail was that of winglets with a root 
chord equal in length to that of the tip chord of the base wing. Again, winglets with 75° 
dihedral and 75° anhedral were studied. The planform of these winglets had a 0° trailing 
edge sweep continuous with the base wing trailing edge and a leading edge sweep of 
50°. A NACA 2404 airfoil was used in the study of toe in and toe out. For winglets 
rotated above the plane of the wing, the toe out angles were limited to 2°, 3°, 4°, and 6°. 
The toe in angles for the winglets below the plane of the wing were 2°, 3°, and 4°. The 
best case was found from these geometries by mutual comparison of the predicted 
performance. The other parameter varied for the full tip chord winglets was the location 
of the maximum camber. The three locations tested for the maximum camber were at 
20%, 40%, and 60% of the local chord length. Both upward orientated and downward 
orientated winglets were tested for a toe out angle of 0°. These two parameters discussed 
were the only two variations conducted for winglets whose root chord length equalled 
the base wing tip chord. 

Another parametric study was done to examine the effects of decreasing winglet 
thickness with different amounts of camber. In this instance, the airfoils selected for the 
winglet were 2% thick relative to the local chord and had maximum camber values, "m", of 
-0.01, 0.00, 0.01, 0.03, and 0.04 The winglets had a planform identical to that of the flat 
plate winglets except the leading edge sweep was 50” and all winglets had a dihedral of 
-75°. The toe angle for these geometries was kept at a 2° toe in angle. 

3.4 Winglet Design for the "Natural" Flow Wing 

The final winglet studies involved the "natural" flow wing of references 15 and 16. 
As stated before, only the outer 10% of the semispan of this wing could be altered which 
meant that the earliest that the winglet or juncture could begin to appear would be at a root 
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chord position of 90 units. Therefore, the maximum tip chord could only be 10 units, or 
half the tip chord length of the previously studied NACA 1402 base wing. This 
restriction posed constraints in the free development of the winglet geometry. Another 
problem encountered for the "natural" flow wing was the fact that the streamwise contours 
were no longer complete NACA airfoils in the outer 10% of the wing semispan. The 
contours present were truncated at the trailing edge. However, continuity of the wing 
and winglet geometry was desirable. To keep geometric continuity, a span location was 
selected for the tip of the base "natural" wing. The streamwise contour of this span 
location was found and used as the "airfoil" contour for the winglets to be studied. This 
decision allowed the trailing edge of the winglet to have a base area similar to that of the 
"natural" flow wing. For the juncture definition between the wing and winglet, a third 
order polynomial was used instead of airfoils due to the fact that the truncated airfoils 
tended to be too thick for this region. 

For placing the "natural" wing with winglet into EMTAC format, another program was 
required (Appendix F). The geometric definition of the "natural" wing was given in 100 
cross sectional cuts with each cut consisting of three patches. However, in order to define 
a geometry with a winglet attached, cross sectional cuts with four patches were preferred. 
Thus the program, CHANGE, listed in Appendix F had two purposes. The first purpose 
was to take the unaltered "natural" wing and change all three patch cuts into four patch 
sections. The same number of points per cross section was maintained when a winglet 
was not present. The second purpose of CHANGE was to take the prescribed definition 
of the "natural" wing, already in EMTAC format, and the output results of the FORTRAN 
program listed in Appendix C then "splice" the two bodies together into a wing-winglet 
combination. For more details of that procedure, refer to Appendix F. 

Because of the geometric constraints, fewer parameters were varied for the "natural" 
winglets. For the dihedral angles, only 65* and -65* were run due to the thickness in the 
juncture of the wing-winglet. The toe angles for these configurations were 0 and 2 toe 


22 



out and 2' and 4' toe in for the downward winglet. The 65' dihedral winglet was run at 2° 
toe in and O', 2', and 4' toe out angles. These geometries were run at angles of attack of 
-5’, O', 2.5*, 7', and 9.5' for a Mach number of 1.62 

The planform of the winglet was identical in all cases. The root chord length of the 
winglet was 10 units while the tip chord length of the winglet was 1.01 units. The trailing 
edge sweep was fixed at 0' and the leading edge sweep was 55'. These planform 
parameters and restrictions fixed the winglet length at 6.29 units, or 15% of 41.97 units 
which is the altered wing semispan length. 

With the geometries selected and properly converted to EMTAC form, the next step in 
this study was to obtain the predicted performance coefficients and associated forces for 
each geometry. 
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CHAPTER 4 


RESULTS AND COMPARISONS 

4.1 Presentation and Convergence of Results 

The focus of this chapter is to present the results obtained from the EMTAC code. To 
understand the results, a series of comparisons will be conducted between winglets for 
each parametric variation, and the best performing wing-winglet would be compared to the 
relevant base wing. The two base wings were the NACA 1402 base wing and the "natural" 
flow wing. Some results that will be presented are incremental force build up along the 
geometries; total force build up along the geometries; predicted performance plots; and in a 
limited number of cases, off-body contour plots were used. The presented information 
was useful in showing the relative performance of each of the geometries as well as judging 
the accuracy of the solutions. 

For output from the computer codes used in the present study to be of use, the solutions 
that they generated must be independent of the particular grid used. A previous study by 
McGrath, Covell, and Walker 21 has shown that a minimum cross flow plane grid density 
was necessary for convergence of solutions using the EMTAC code. Grid density was 
defined to be the number of grid points along the surface circumference times the number 
of grid points normal to the surface of the body being studied. The maximum grid 
density for EMTAC was 2400, 80 by 30 points. The study of McGrath, et. al., 
demonstrated that a grid density of 1220 cross sectional grid points could be used to 
insure convergence for wing-body configurations. Because of that study, the grid densities 
for the geometries developed in the present work were restricted to a 59 by 25 grid or 
higher. With a minimum grid density of 1475, all solutions obtained should have had 
results that were independent of the grid used. 

Other factors in assuring convergence were the values of NCON and GLOBIT listed in 
the EMTAC headers. NCON stipulated the number of marching steps to the XSTART 
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location of region one. This value was selected at first to be 30 units. However, NCON 
was later changed to 300 units but had no effect on the solutions obtained from EMTAC. 
GLOBIT was a variable that controlled the number of global iterations that EMTAC did for 
each marching step. This value was initially set at 2 when the study began and was 
changed to 5 for the "natural" flow winglet cases and the final NACA 1402 winglet design. 
The alteration of GLOBIT affected the results in the fourth significant digit and was 
assumed non-critical except in run time. For a GLOBIT value of 2, the typical run time 
was approximately 1200 cpu seconds. However, increasing GLOBIT to 5 increased the 
run time approximately to 3000 cpu seconds. 

4.2 The NACA 1402 Base Wing with Extension 

For all of the present wing-winglet designs, only a limited range of projected semispans 
were used. This semispan range was from 39.6532 units to 40.796741 units. Because a 
consistent comparison between wing-winglet designs and a wing-alone design was 
wanted, an extension was added to the NACA 1402 base wing. This extension fixed the 
semispan of the wing to 40 units. With a semispan of 40 units, the maximum difference 
between semispan ranged between 0.87% to 1.97% for all wing-winglets to be studied. 

To obtain a solution from the EMTAC program, grids were specified for four axial 
regions. These regions were from the wing apex to a specified axial location, followed 
by three restarts. Although the wing alone geometry could have been calculated with one 
grid description and one region, several regions were used to develop an understanding 
of the EMTAC restart option. A typical grid for a wing-alone has been given in figure 
A.3.1. Table 4.2.1. lists the relevant values of grid parameters and restart locations for 
the wing-alone case. In this table, XSTART indicated where the code began to calculate 
three-dimensional flow field values for the configuration for a particular region. The 
XEND value determined the axial ending location of the calculation. The values, NPT, 
INU, and THTU, were used to control the grid in the cross flow plane. NPT values 
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determined the number of points in each patch in the circumferential direction. The variable 
INU specified which line or lines extending radially from the body surface would have 
slopes controlled in the grid, while the THTU value indicated the angle or angles between 
the controlled radial line(s) and the horizontal plane. Also, the axial size for the marching 
solutions for each region was given by Ax. 

For the base wing with extension, the angles of attack of -5', 0°, 2.5°, 5°, 9° and 15° 
were run for a Mach number of 1.62. The lift coefficients, pressure drag coefficients, 
and pitching moment coefficients have been listed in Table 4.2.2. To check for valid, 
converged solutions, two items were routinely checked for this, and all subsequent 
geometries. The first item checked was the densities in the flow field output. In 
particular, the appearance of negative density values was monitored. Although density 
cannot be negative in physical situations, the EMTAC code could calculate negative 
densities in the flow field. The possible source of the negative densities could be related to 
the fact that the solution of the flowfield was for the discretized equations instead of the 
exact analytical functions. Also, the code did not restrict or alter the results obtained by the 
volume differencing technique. Typically, negative densities would appear on the surface 
of the body at the outermost part of the semispan. In other words, the leading edge was 
the physical location for any non-physical negative densities. The results of a run at an 
angle of attack were dismissed if negative densities were observed more than two radial 
grid points out from the surface. Also, if negative densities were observed on the body 
surface for a large portion, e.g. 5 to 10, of the circumferential grid points, the result was 
discarded as an unreliable solution. The wing-alone configuration would usually have no 
more than one or two negative densities at 4 or 5 marching planes. At lower angles of 
attack, negative densities were totally absent while at higher angles of attack, 9° or 15°, a 
greater number of negative densities appeared. 

The second item checked to insure accurate realistic solutions was the smoothness of the 
incremental force build up distributions, as shown in figure 4.2.1. The incremental force 
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build ups in figure 4.2.1 appear to have a "bucket" or discontinuity at approximately axial 
locations of 0.80 through 0.85. However, this drop appeared not as a result of a solution 
error, but due to the plotting method in the software provided by NASA-Langley where 
the actual incremental force coefficient was plotted. For the region of 0.8 to 0.85, 
approximately, the axial step size for the solution was 0. 1 units. This step size was one- 
half the step size of region one or region four. Thus, it should be noted that the vertical 
height of the "bucket" was one-half that of regions 1 and 4 because of the smaller axial 
step size. The incremental force plots for lift and pressure drag were also examined for 
discontinuities. If discontinuities or large spikes were evident in either the lift or drag 
plots, the solution was considered diverged or unrealistic. Although these two checks 
were done independently, it was observed that solutions which contained a large number 
of negative densities were usually divergent as well, as judged by the axial force build up 
plots. However, solutions that were divergent did not always have a considerable number 
of negative densities. The total lift and pressure drag force build ups have also been given 
for this wing-alone configuration in figure 4.2.2. 

4.3 Toe In and Toe Out for 0% Thick Winglets with Dihedral 

Once again, the first step in obtaining a solution for a geometry was to generate an 
appropriate grid. For 0% thick winglets with 75' dihedral and a winglet leading edge 
sweep of 65*, the parameters for the best grids established have been given in Table 4.3.1. 
The wing- winglet geometries differed from the wing-alone not only in geometric make-up, 
but also required at least four separate axial regions to allow proper grids to be placed 
around the geometry. Examples of the grids used for the 0 % winglets at 75° dihedral have 
been given in figure 4.3.1. As in the wing-alone case, the same checks were used to test 
for physically believable solutions for the wing-winglet geometries. Typical examples of 
incremental and total lift build up and pressure drag build up distributions for an angle of 
attack of 5* are shown in figures 4.3.2 and 4.3.3 for this winglet geometry. In figures 
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4.3.2 and 4.3.3, results are for the geometry of the winglet case with 2* toe out. The other 
75* dihedral cases tested were 0, 2, 4, and 6 degrees toe out and 2, 4, and 6 degrees toe 
in. Incremental force build up distributions appeared quite similar to those of figure 4.3.2 
for all of these cases. 

To select the best performance of a winglet, several factors were examined. Among 
these factors were lift-to-pressure drag ratio, pressure drag coefficient, and moment 
coefficient as functions of lift coefficient. The main factors however were lift-to-pressure 
drag ratio versus lift coefficient and pressure drag coefficient versus lift coefficient, with 
emphasis on performance in the lift coefficient range of 0.10 to 0.22. Once the best 
winglet performance was selected, the particular geometric parameter being parametrically 
studied was fixed during the remaining studies. 

The first parameter varied was toe in and toe out for winglets with positive dihedral. 
As previously stated, a limited range of coefficients and lift-to-drag ratios were used to 
determine which winglet performed better in a parameter study. The lift-to-pressure drag 
ratio performance plot was considered physically reliable due to the trend of the plot. As 
the lift coefficient became larger, the lift-to-pressure drag ratio decreased, while at lower lift 
coefficients, the lift-to-pressure drag ratio was essentially linear in nature. This trend was 
typical of lift-to-drag plots from theoretical and experimental considerations. Figures 4.3.4 
through 4.3.1 1 show the plots of coefficients and ratios of interest versus lift coefficients. 
The exact values of angle of attack, lift coefficient, pressure drag coefficient, and moment 
coefficient have been given in Table 4.3.2, as obtained from the EMTAC code. Figures 
4.3.4 through 4.3.7 were for the toe out angles of 2*, 4*, and 6* as well as 0° toe out. 
The angle of attack as a function of lift coefficient and moment coefficient as a function of 
Cl revealed that the four winglets were close to one another in their behavior and in 
affecting the flow field. By examining the lift-to-pressure drag ratio and pressure drag 
polar, with emphasis in the lift coefficient range of 0.10 to 0.22, a difference was observed 
between the four winglets under consideration. Of the four, the winglet with 0° toe out 
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can be seen to have a lift-to-pressure drag performance (figure 4.3.5) that would be a 
penalty compared to the other three. As for the other three cases, an identical performance 
prediction was obtained over most of the global lift coefficient range. However, for the Cl 
range of interest, the geometries with 2" and 4“ of toe out performed better than both the 0° 
and 6° toe out geometries. Also, the 6° toe out had questionable results based on the 
incremental drag build up. A closer inspection of figure 4.3.5 showed that the 2* toe out 
geometry outperformed the 4 degree toe out configuration out of the specified lift 
coefficient range. Because of this off design performance, the winglet with 2* toe out was 
chosen as the best of the four cases for those inspected. 

Toe in angles of 2°, 4°, and 6' and 0° toe out have also been presented in figures 4.3.8 
through 4.3.11 for the same winglet planform and dihedral angle. Although the toe in 
angles of 2°, 4°, and 6° performed similarly through the lift coefficient range, a significant 
difference was obvious in the lift coefficient range of 0. 10 to 0.22. The 0' toe out winglet 
is seen to outperform the other three alignments in figures 4.3.9 and 4.3. 10. However, it 
has previously been shown that the winglet with a 2° toe out had a better performance than 
the 0° toe out winglet. From this comparison, the winglet with 2’ toe out was determined 
to be the best for this parametric variation. 

4.4 Toe In and Toe Out for 0% Thick Winglets with Anhedral 

For winglets with anhedral, i.e., negative dihedral, grids similar to those for winglets 
with positive dihedral were used, but with the plane of the wing being the plane of 
symmetry. The grids required by the 0% thick, -75* dihedral winglets have previously 
been listed in Table 4.3.1 with the variables, INU, NPT, and THTU, being the same as 
discussed in 4.2. Also, examples of the grids were given in figure 4.4.1. As with the 
upward winglets discussed in section 4.3, the predicted performance levels of the 
downward winglets were compared against one another, with the best performance 
determining the optimal value of the parameter under study. The predicted performance 
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was determined by the EMTAC code results listed in Table 4.4.1. Figures 4.4.2 through 
4.4.9 give the performance plots for the toe in angles of 2', 4’, and 6* and the toe out 
angles of 2", 4', and 6* as well as 0* toe out. The first figures considered were 4.4.2 
through 4.4.5. These plots were for the toe in angles and the 0' toe out angle. The plots 
of angle of attack and moment coefficient as functions of lift coefficient indicated little 
difference among the winglets. However, studying the lift-to-pressure drag ratio plot, the 
2* toe in winglet was able to outperform the 4° and 6' toe in winglets at a lift coefficient of 
approximately 0.05. In the Cl range of interest, the 2’ and 4* toe in winglets outperformed 
the 6’ in and 0* toe out winglet alignments. From these considerations, the 2* toe in was 
selected as the best alignment for the downward winglet. 

Results for the remaining winglets with anhedral, toed out 2", 4*, and 6" are presented 
and compared with 0° toe out in figures 4.4.6 through 4.4.9. An immediate distinction is 
evident for lift coefficients ranging from 0.10 to 0.22. The winglet with 0° toe out had a 
better lift-to-pressure drag performance and a better or equal drag polar. However, the 2’ 
toe in winglet configuration was already demonstrated to be more effective than the 0* toe 
out winglet. From these facts, the best performance was given by the winglet when it 
was toed in 2°. The incremental lift and drag build ups for this configuration have been 
given in figure 4.4.10 for an angle of attack equal to 5” while the total lift and drag build 
ups have been given in figure 4.4.1 1. The smoothness of these axial force distributions is 
similar to the distributions obtained for the other geometries. 

After determining the best winglet cases for 75* and -75* dihedral winglets with no 
thickness, a comparison was made between the 2* toe out, 75“ dihedral wing-winglet; 
the 2* toe in, 75“ anhedral wing-winglet; and the wing with extension at a semispan of 40 
units. This comparison has been presented in figures 4.4.12 through 4.4.15. For the total 
lift coefficient range of -0.2 to approximately 0.7, a trend was apparent that the wing-alone 
and 2* toed in, downward winglet slightly outperformed the 75* dihedral winglet toed out 
2*. In the Cl range of interest, the 75* dihedral winglet with 2* toe out was outperformed 
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by the two other configurations in both drag polar and lift-to-pressure drag ratio. The -75’ 
dihedral winglet was also slightly outperformed by the NACA 1402 wing with extension in 
some instances. However, the -75’ dihedral winglet generally duplicated the wing-alone 
performance. Due to this comparison, future zero thickness winglet studies were fixed to 
have anhedral and the winglet had a toe in of 2*. 

4.5 Camber Effects on the 0% Thick Winglet 

After setting the winglet geometry to an anhedral of 75’ and to a 2’ toe in, the next 
parametric variation was for camber. The values of "m" investigated were -0.02, -0.01, 
0.00, 0.01, and 0.02 where m is the maximum ordinate of the mean line as a fraction of the 
chord, see Appendix B. The location of the maximum ordinate was at 40% chord for the 
winglets studied. The grids used in this study have been listed in Table 4.3.1. The force 
and moment coefficient results from EMTAC for these configurations have been listed in 
Table 4.5.1. For the five configurations which were run, the results differed negligibly. 
This may be seen in figures 4.5.1 through 4.5.4 where only results for the two extreme 
cases of 0.02 and -0.02 were represented on the plots. These two configurations, as well 
as those not shown, plotted exactly on top of one another. Because of no alteration or 
improvement could be found from this parametric study, the winglet was to remain 
uncambered for the rest of the parametric variations. 

4.6 Leading Edge Sweep of Winglets with No Thickness 

For the previous parametric studies, the winglet leading edge sweep had been set at 65 . 
The next alterations were made on the winglet leading edge sweep. The leading edge 
sweeps selected were 0‘, 22', 44’, along with the previous sweep of 65*. As usual for 
wing-winglet geometries, four axial regions of grids were needed. The grids specified for 
each winglet have been given in Table 4.3.1. Although the EMTAC code had been reliable 
for computing results in the earlier parametric variations, the program had trouble obtaining 
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solutions for the 0° and 22* leading edge sweeps. Because of discontinuities in the 
incremental force build ups and the program terminating its operation, the parameter of 
0* leading edge sweep could not be included in this variation. Results for the leading edge 
sweeps of 22” and 44” were also questionable as judged by oscillations in the incremental 
force build ups. A possible explanation to the problems encountered by the 0” and 22” 
leading edge sweep winglets might be related to the fact that for a Mach number of 1.62 
these angles caused the winglet leading edge to be supersonic. As for the 44“ leading edge 
sweep, its close proximity to a leading edge shock may have been the problem. For a 
Mach number of 1 .62, a minimum leading edge sweep of 38. 11* could be used and be able 
to retain a subsonic leading edge. The leading edge sweep of 65* was maintained 
throughout the last parametric variation due to the other sweeps having questionable 
soludons. 

The values of the calculated coefficients (Table 4.6.1) have been plotted for performance 
even though the believability of the solutions was questioned, see figures 4.6. 1 through 
4.6.4. If the solutions to the winglet with a leading edge sweep of 44* were to be 
considered as converged, then this winglet would have been the one taken as best. The 
winglet with a leading edge of 44” had a better lift-to-pressure drag ratio performance 
(figure 4.6.2) than the 65* leading edge sweep or the wing-alone configuration. However, 
this conclusion is uncertain because of the questionable validity of solutions for the 44* 
sweep winglet. 

4.7 Length Variation of the Winglet with No Thickness 

The last variational study conducted for zero thickness winglets was for the effects of 
winglet length. All winglets to this point had a length equal to 15% of the base wing 
semispan. To determine the effect of winglet length on performance, two other winglet 
lengths were selected at 10% and 12.5% of the length of the base wing semispan. The 
grids and related specifiers for these configurations have been given in Table 4.3.1 and 
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are the same as those for the -75° dihedral winglet. The coefficients generated by EMTAC 
have been listed in Table 4.7.1. As before, the performance of the geometries and the 
wing-alone have been plotted in figures 4.7.1 through 4.7.4. The wing-alone 
outperformed or equalled the performance of all three wing-winglet configurations. Also 
of note was the fact that the three wing-winglet geometries had the same predicted 
performance even though the winglets were of different lengths. The best case could 
not be selected due to the fact that all three cases had the same performance. 

4.8 Toe Out for Winglets with Thickness and Dihedral 

Once winglets with zero thickness had been parametrically tested, the next phase of the 
study was to test winglets with thickness. The winglet airfoil thickness selected was 4% of 
the local chord length and the camber value of "m" was 0.02. The first parametric study 
conducted was for winglets with 75° dihedral and a leading edge sweep of 50°. Due to the 
results of winglets without thickness, only positive toe out angles were tested. The angles 
tested were 2°, 3°, and 4°, as well as 0° toe out. The grid parameters used on these 
geometries have been listed in Table 4.8.1, while example grids are shown in figure 4.8.1. 
The calculated EMTAC code force and moment coefficients values have been given in 
Table 4.8.2. The procedure used to determine the best winglet alignment was the same as 
that used for winglets without thickness. Several performance criteria were compared 
between the four winglet geometries tested. 

The performance data are plotted in figures 4.8.2 through 4.8.5. The four winglets 
under consideration performed identically except for the lift-to-pressure drag ratio versus 
lift coefficient (figure 4.8.3). In the specific range of interest, the 3' and 4° toe out 
winglets perform the same as the 2° toe out winglet around the Cl value of 0.2. However, 
winglets with 3° and 4° toe out outperform the 2° toe out near the 0.105 value of lift 
coefficient. The 0° toe out alignment was worse in performance than the other three 
winglets in the lift coefficient range of interest. Over the total range of Cl's covered, the 
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2* toe out was a better configuration than the 3' and the 4’ toe out alignments near a lift 
coefficient of 0.05. Based upon off design performance plus the close or equal 
performance in the design range, the T toe out angle was selected for further study. 

The incremental lift and pressure drag force build up plots have been shown in figure 
4.8.6 for 5* angle of attack to indicate the validity of the solutions. The total force build up 
plots have been also given in figure 4.8.7. 

4.9 Toe In and Toe Out for the Winglet with Thickness and Anhedral 

The parametric alteration of toe out and toe in has also been conducted on a cambered 
winglet with anhedral. The winglet had a leading edge sweep of 50°, a length of 15% of 
the semispan and an anhedral of 75°. The mean camber value used was for "m" equal to 
0.02. The grids needed for computation around this body have been given in Table 4.8.1 
while examples of these grids have been given in figure 4.9.1. Since the zero thickness 
winglets performed better with negative dihedral, more toe in and out angles were studied 
for the 4% thick downward winglet than the winglet with thickness and positive dihedral. 
The toe in angles attempted were 1°, 2°, 3°, and 4' while the toe out angles were 0' and 1*. 
The calculated EMTAC performance results for this parametric variation have been given in 
Table 4.9.1. 

To select the best alignment of the winglet, performance plots were again used to 
compare the various toe angles against one another. The toe in angles of 1” through 4° 
have been compared against one another in figure 4.9.2 through 4.9.5. Once the best 
alignment was found among those four, it would be compared with 0° and 1° toe out 
alignments. Examining figures 4.9.2 through 4.9.5, the toed in winglets were almost 
identical in performance. However, in the lift-to-pressure drag ratio plot, the 1 * and 2° toe 
in angles showed better performance at a lift coefficient of approximately 0.05. As for the 
lift coefficient range of interest, the 2° toe in angle was better than the 1* toe in angle and 
equaled the performance of the 3° and 4° toe in angles. Due to this performance, the 2* 
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toe in angle was selected to be compared with the 0* and the 1* toe out angles in figures 
4.9.6 through 4.9.9. 

For the lift coefficient range of approximately 0.0 to 0.7, all winglets performed 
nearly identical to one another. In the lift coefficient range of 0.10 to 0.22, a noticeable 
difference could be observed especially in the pressure drag polar and the lift-to-pressure 
drag ratio plots (figures 4.9.7 and 4.9.8). The 2° toe in angle had a lower drag polar and a 
higher lift-to-drag ratio which indicated that the 2' toe in was the best alignment of the 
three. 

The best alignment for winglets with dihedral and anhedral have been found. For the 
remaining parametric variations, the winglet position that obtained the best performance 
was used. To determine the best alignment, the 75' dihedral winglet with 2' toe out was 
compared with the -75' dihedral winglet that was toed in 2'. The wing-alone configuration 
has also been plotted in the performance plots (figures 4.9.10 through 4.9.13). By 
examining figures 4.9.10 through 4.9.13, the best wing- winglet performance was found to 
be the -75° dihedral winglet with a 2' toe in. The 2° toe in, downward winglet had a lower 
pressure drag polar and a higher lift -to-pressure drag ratio especially in the lift coefficient 
range of 0. 10 to 0.22. However, the wing with a semispan of 40 units was able to slightly 
outperform the best winglet case throughout the lift coefficient range. The incremental lift 
and drag forces have been given in figures 4.9.14 for the winglet that was toed in 2' and 
had a -75" dihedral at 5° angle of attack. The total forces for this winglet alignment have 
also been given in figure 4.9.15. 

4.10 Camber Effectiveness for the 4% Thick Winglet 

The winglet chosen to proceed with in the parametric study was toed in 2' and had a 
dihedral of -75'. The leading edge sweep of the winglet was still fixed at 50°. In this 
parametric study, the maximum ordinates of mean line expressed as a fraction of chord, 
"m", were studied at values of -0.01, 0.00, 0.01, 0.02, and 0.03. The EMTAC grids 
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used have been listed in Table 4.8.1 which were the same grids that had previously been 
used. The corresponding performance coefficients were given in Table 4.10.1. 

To help in presenting the performance results, results for various values of camber have 
been divided into two groups. The first group was for the camber values of 0.01, 0.02, 
and 0.03 (figures 4.10.1 through 4.10.4). The second group consisted of -0.01, 0.00 and 
the geometry with the best drag reduction or lift-to-drag increase in the first group 
(figures 4. 10.5 through 4. 10.8). The first set of plots had only one obvious difference for 
the three configurations. This difference was in figure 4.10.2 which was a plot of lift-to- 
pressure drag for lift coefficients ranging from 0.10 to 0.22. The highest lift-to-drag 
ratio was obtained by the winglet with "m" equal to 0.01 at a Cl of approximately 0. 105. 
Since there were no other differences apparent, the winglet with a camber value of 0.01 
was taken as giving the best performance. This winglet was then compared to an 
uncambered winglet, 0.00, and a winglet with negative camber, -0.01 (Figures 4.10.5 
through 4.10.8). In this comparison, no difference was noticeable except in figure 
4.10.6. However, the difference was so small no distinction could be made between the 
three cases. Due to the lack of any difference, the uncambered winglet was chosen for 
future parametric studies. The validity of the solutions for the uncambered winglet with - 
75' dihedral and 2° toe in at an angle of attack equal to 5'was shown by the incremental 
force build up results in figure 4.10.9. The total force results were given in figure 
4.10.10. 

4.11 Effect of 4% Thick Winglet Length Alteration 

With the parameters studied to this point, the best performance of a wing-winglet 
geometry was found to be for a winglet that was uncambered, toed in 2°, and had a 
dihedral of -75*. The leading edge sweep of the winglet was still fixed at 50'. The next 
parametric variation involved the length of the winglet All 4% thick winglets that had been 
studied so far had a length of 15% of the base wing semispan. To investigate the effect of 


36 



winglet length, three other lengths have been used. These lengths were 7.5%, 10%, and 
12.5% of the base wing semispan. The same grid information was used as for the 15%, 
winglet , given in Table 4.8.1. The predicted performance coefficients for these geometries 
have been listed in Table 4.1 1.1. Again, predicted performance results have been shown in 
figures 4.1 1.1 through 4.1 1.4. By examining these figures, no difference was observable 
between the performance of winglets of various lengths. This lack of difference between 
the cases was extremely similar to that observed for the winglets with zero thickness. Due 
to the fact that no difference was observed, the winglet with a length equal to 15% of the 
semispan length was selected for use with additional parametric alterations. This selection 
allowed a better comparison between future parametric changes and those parameters 
already studied. 

4.12 Leading Edge Sweep Variation for the 4% Thick Winglets 

One of the last parameters to be changed on the 4% thick winglets was the leading edge 
sweep of the winglet. Since the EMTAC code had difficulty with low winglet leading edge 
sweep angles, only sweep angles of 50* and greater were considered. In particular, the 
leading edge sweeps were selected to be 50°, 60°, 65°, and 68°. The sweep angle of 68° 
was the highest chosen due to the geometric limitation that the tip chord length of the 
winglet was approximately zero. Any sweeps higher than 68° would have reduced the 
winglet length. The grid specifiers for these geometries have been given in Table 4.8.1. 
The resulting force and moment coefficients from EMTAC have been given in Table 
4.12.1. 

Once again, the performance predictions have been presented in figures 4. 12.1 through 
4.12.4. As in the length comparison, very little difference can be observed between the 
different configurations. The only result that could be seen to have a difference from one 
geometry to another was the lift-to-pressure drag ratio (figure 4.12.2). No difference was 
observable between the geometries for Cl's greater than 0.3. However, for a lift 
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coefficient equal to 0.05, the more highly swept winglets outperformed the 50* sweep 
winglet. Because of this fact, the leading edge sweep was selected to be 60*. This 
geometry would allow equal or better performance as compared to the other winglet 
configurations. The incremental and total forces have been given in figures 4.12.5 and 
4.12.6 for this geometry. 

4.13 Dihedral Changes for the 4% Thick Winglet 

The last parameter to be changed was the dihedral angle. The dihedral angles chosen 
were -30* and -50*. Although these cases were of interest, no valid solutions could be 
obtained. Without convergent solutions for other dihedral angles, the geometric 
configuration with -75’ dihedral was the last winglet case to be parametrically studied for 
the NACA 1402 base wing. 

4.14 Comparison of the NACA 1402 Base Wing to Best Wing-Winglet 

Upon completion of the winglet parametric variation, the best overall performance was 
observed for an uncambered winglet with a 60* leading edge sweep, -75° dihedral, 2* toe in 
and a length equal to 15% of the base wing semispan length. To indicate the performance 
level of this wing- winglet configuration, a comparison was made to the NACA 1402 base 
wing with an extension. The grid configurations surrounding the two bodies have been 
given in Table 4.14.1 while the predicted aerodynamic coefficients have been listed in 
Table 4.14.2. 

The grid parameters were changed for the wing-winglet case due to a problem with the 
outer boundary conditions in the EMTAC code. Although previous warnings had been 
given about the appearance of negative densities being possible, the EMTAC manual gave 
no such warnings about violations of the outer boundary conditions. For the wing-winglet 
case, the line output file listed boundary condition violations for the second axial region. 
However, adjusting the grid, as listed in Table 4.14.1, corrected the problem. An 
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examination with previous performance coefficients indicated that the coefficient values 
were typically changed in the fourth significant figure. Since the variation had been at the 
outer boundary of the grid and the performance coefficients were not severely affected, the 
parameters studied previously were not re-run. 

With the new grid and results, the base wing and wing-winglet cases were compared in 
several ways. The performance predictions have again been given in figures 4.14.1 
through 4.14.4. Two extra values for lift coefficient were included in this figures. The 
values were approximately 0.1 and 0.2. Little difference was observable between these 
two configurations for predicted performance plots, especially in figures 4.14.1,4.14.3, 
and 4.14.4. 

The performance plots were not particularly useful in this instance in determining which 
geometry had the better performance. Therefore a numerical comparison was used to 
examine the exact size of the difference in lift-to-drag ratio and drag coefficient. In this 
case, a friction drag estimate was obtained for each geometry as has been described in 
Chapter 2, Section 3. The mean aerodynamic chord for the wing with extension was 
calculated to be 69.244 units. The mean aerodynamic chord of the base wing with winglet 
was 69.017 units. The skin friction estimates for the base wing and wing-winglet were 
0.006796 and .006778, respectively. The two points of comparison were selected to be at 
lift coefficients of approximately 0.1 and 0.2 (Table 4.14.3). For a Cl of approximately 
0.1, the base wing with an extension had a higher total drag than the wing-winglet case, by 
0.1 108%, but due to a slightly higher lift coefficient, the lift-to-drag ratio was higher than 
the wing-winglet case. For the lift coefficient of approximately 0.2, the wing-winglet 
geometry had a lower drag, by 0.4801%, and a higher lift-to-drag ratio than the base wing. 
The percent difference in lift-to-drag ratio was 0.3586% for the lift coefficient 
approximately equal to 0.1 and 0.1355% for a lift coefficient of approximately equal to 0.2. 
These differences were obtained by subtracting the wing value from the wing-winglet value 
and then dividing by the wing value. Due to some differences in Cl and the slight 
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fluctuation in results due to alterations in the grid, the overall conclusion was that these two 
geometries had nearly identical performance in the range of interest. 

Another method of comparing these two configurations was to examine the surface 
pressure coefficients, the local crossflow Mach number contours, and the local static 
pressure to freestream static pressure ratio contours around the geometries. This 
comparison has been made for an angle of attack of 5’ and at three axial locations for each 
geometry. The first axial location was at 59.7 units (figure 4.14.5). Only one set of plots 
have been given since both geometries were identical at this axial location. The geometries 
remained identical through the first 80 units. In figure 4.14.5, the surface pressure 
coefficient was essentially smooth which was another indication that the solution was valid 
at this axial location. The contours of the static pressure ratios have also been given. The 
pressure contours demonstrated the effect of decreasing pressure around the wing-tip and 
the amount of change in the flow field at the wing-tip. Finally, the local Mach contours 
were given. Again, the majority of the flow field activity was at the wing-tip. From the 
Mach contours, the flowfield was seen to have relatively low crossflow velocities 
especially toward the centerline of the geometry. The next axial locations for the base wing 
at 88.8 and 99.6 units have been presented in figures 4.14.6 and 4.14.7. The surface 
pressure contours, static pressure ratio contours and local crossflow Mach number 
contours indicated limited change had taken place, and these contours were very similar to 
the contours for axial location 59.7. 

Similar figures have been given for the wing-winglet case at axial locations of 88.2 and 
99.6 units (figures 4.14.8 and 4.14.9). For the axial location of 88.2 units, the surface 
pressure coefficient shows a difference as compared to the wing-alone at x=88.8 units. 
The surface C p for the wing- winglet had a increase in the C p values on the lower outboard 
surface as compared to the base wing. This effect was related to the winglet being 
orientated in a downward direction, i.e., anhedral. The static pressure ratio contours also 
demonstrated this effect as the ratios increased at the winglet. The crossflow Mach number 
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contours have also been given. From these contours, a shift can be seen in the crossflow 
velocities. For the wing-alone, increasing Mach number contours were primarily on the 
upper outboard surface while for the wing-winglet case , the increasing Mach number 
contours were shifted farther out and downwards. At an axial location of 99.6 units in 
figure 4.14.9, a more profound difference in C p 's and contours was evident between the 
base wing and the wing-winglet geometry. The surface pressure coefficients for the wing- 
winglet were essentially the same as the wing-alone values for the inboard 80% of the 
semispan. However, for the winglet case, a large increase in pressure was evident on the 
lower outboard surface near the winglet. By examining the pressure ratio contours and 
Mach number contours, the effect of the winglet was seen to be to shift or rotate the 
flowfield downward. This can be seen by selecting contours of equivalent values around 
the wing and the wing-winglet geometries and following them to the surface of the body. 
The smoothness of these contours was another way in which the validity of the solution 
could be checked. 

A final comparison between the two geometries, the wing-alone and the best 
wing-winglet, was to alter the freestream Mach number and examine the effects. The Mach 
numbers investigated were 1.4, 1.62, 2.0, 2.5, 3.0, and 3.5. The calculated performance 
coefficients have been listed in Table 4.14.4. The predicted performance results for the 
Mach numbers have been presented in figures 4.14.10 through 4.14.21. In figure 4.14.10 
through 4.14.13, the Mach numbers of 1.4 and 1.62 have been shown. At these relatively 
low Mach numbers, the difference in performance between these geometries was greatest 
for Cl values of approximately 0.05. For example, the difference in the lift-to-pressure 
drag ratio was 3.97% at a Mach number of 1.4 and a Cl of 0.05 with the wing performing 
better than the winglet case As Mach number was increased, the difference in the predicted 
performance for the geometries lessened. Also, as Mach number was increased, the 
EMTAC code did not typically give valid solutions for angles of attack at or above 15°. 
The essential result of this Mach number study was that the effects demonstrated at M=1 .62 
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were the same as for higher Mach numbers. This concluded the comparison between the 
NACA 1402 base wing with extension and this particular wing-winglet case. 

4.15 Investigation of the Special Cases with Thickness 

As mentioned in Chapter 3, investigations of several other geometries were conducted. 
The first of these studies was for full tip winglets. Full tip winglets were winglets whose 
root chord length was the same length as the tip chord of the base wing. Both upward and 
downward rotated winglets were examined at various toe out and toe in angles. The angles 
of attack of that have been investigated were -5*, O', 2.5’, 5’, 9', and 15’ for a Mach 
number of 1.62. The grids used have been listed in Table 4.15.1. For the winglets with 
75’ dihedral and a leading edge sweep of 50’, four toe out angles have been studied. These 
angles were 2’, 3’, 4’ and 6°. The predicted performance coefficients have been listed in 
Table 4.15.2 and the predicted performance results have been given in figures 4.15.1 
through 4.15.4. In this study, the winglet toed out 3’ had the best performance in the lift 
coefficient range of interest. The next geometries considered were the full tip winglets with 
75* anhedral at a Mach number of 1.62. The toe in angles for these geometries were 2°, 3’, 
and 4’. The computational grids used have been given in Table 4.15.1 and the 
performance coefficients have been listed in Table 4.15.3. Figures 4.15.5 through 4.15.8 
show the predicted performance results. No distinction could be made between the three 
geometries studied. Finally the best winglets from these two groups were compared to the 
NACA 1402 base wing with extension. These geometries were the 75° dihedral, 3’ toe out 
winglet and the -75° dihedral, 2° toe in winglet. The performance comparison has been 
given in figures 4.15.9 through 4.15.12. The main result was that the wing-alone was able 
to equal or outperform the geometries with winglets in the lift coefficient range of interest. 

The next special case study was that of maximum camber location. Since the NACA 
four digit series was used for airfoil description, the maximum camber location could be 
easily shifted analytically. For this study, the same computational grids were used as listed 
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in Table 4.15.1. The toe out angles for both the 75' dihedral and 75° anhedral winglets 
were fixed at zero degrees and the winglets were full tip chord winglets. For the maximum 
camber location, three values were arbitrarily selected. The locations for maximum camber 
have been chosen to be 20%, 40%, and 60% of the local chord length from the winglet 
leading edge. The predicted coefficients have been listed in Table 4.15.4 for a Mach 
number of 1.62. The predicted performance of the 75' dihedral winglets has been 
presented in figures 4.15.13 through 4.15.16. Some difference was evident between the 
geometries in the lift coefficient range of interest. However, this difference was not very 
large. Similar results were obtained for the 75° anhedral winglets in figures 4.15.17 
through 4. 15.20. The best performance overall was typically given by the base wing. 

The next special case study involved decreasing the winglet thickness from 4% to 2% 
and varying the camber of the airfoils. The winglet anhedral was fixed at 75', and the 
winglet had a leading edge sweep of 50'. The toe in angle had been set at 2'. The length 
of the root chord was chosen to be 65% the length of the base wing tip chord. The 
computational grid parameters used have been listed in Table 4.15.5. The various "m" 
values used were -0.01, 0.0, 0.01, 0.03, and 0.04. The predicted performance 
coefficients have been listed in Table 4.15.6. The performance results for -0.01, 0.01 and 
0.0 have been given in figures 4.15.21 through 4.15.24. The performance of all three 
cases were indistinguishable except for the case of -0.01 at a Cl of 0.1. However, even 
the difference here was slight. The "m" values of 0.01, 0.03, and 0.04 have been 
presented in figures 4.15.25 through 4.15.28. In this comparison, an obvious difference 
existed between the three configurations in their lift-to-pressure drag performance (figure 
4.15.26). The higher lift-to-pressure drag values were achieved by the 0.01 case. 

To examine the effectiveness of some of these special cases, they have been compared 
to the NACA 1402 base wing and the wing-winglet discussed at the beginning of this 
section. The four geometries compared in figures 4.15.29 through 4.15.32 were the base 
wing; the 4% thick, uncambered, 75' anhedral winglet; the 2% thick, uncambered 75° 
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anhedral winglet; and the full tip winglet with a -75° dihedral. All three winglet cases were 
toed in 2°. In figure 4.15.30, the full tip winglet does not perform as well as the other two 
winglet cases or the base wing for lift coefficients near 0.05. For the two remaining 
winglet cases their performance was equivalent to the base wing performance. 

From the parametric variations and the limited number of special case studied, it has 
been possible to show that geometries with winglets can equal the supersonic performance 
of a wing-alone geometry. 

4.16 The "Natural” Flow Wing and "Natural" Flow Wing with Winglets 

After concluding the parametric study of the NACA 1402 base wing with winglets, the 
next investigation focused on the "natural" flow wing described in references 15 and 16, 
and the effects of winglets on this wing. The grid parameters used for the "natural" flow 
wing have been given in Table 4.16.1. Four typical grids have been shown in figure 
4.16.1. For this geometry, the angles of attack of -5", 0", 2.5’, 5*, and 9° were studied at 
a Mach number of 1.62. The predicted performance coefficients have been listed in Table 
4.16.2 for the "natural" flow wing. The incremental and total force plots were given in 
figures 4.16.2 and 4.16.3. Both upward and downward orientated winglets were 
investigated. In particular, the winglets had 65° of dihedral or anhedral and a leading edge 
sweep of 55°. 

For the 65° anhedral winglets, several toe out and toe in angles have been studied. The 
toe in angles were 2' and 4° while the toe out angles were 0° and 2°. The grid parameters 
necessary for these geometries have been listed in Table 4.16.1. Typical grids for the 2° 
toe out winglet have been given in figure 4.16.4 and the EMTAC generated performance 
coefficients have been presented in Table 4.16.3. For the winglets, the angles of attack 
studied were -5°, 0°, 2.5°, 5°, 7°, and 9.5°. The incremental force plots for the 2° toe out 
case at an angle of attack of 5° have been given in figure 4.16.5. The total force build ups 
at 5° have been plotted in figure 4.16.6. For the incremental lift, the solution was not 
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entirely smooth but appeared stable. However, the incremental drag had a large 
discontinuity at a distance of 90% root chord. This indicated that the solution was 
probably not valid. All the winglets tested had similar spikes in the same general axial 
location. Different grids, marching step sizes, and boundary conditions were attempted in 
an effort to eliminate this discontinuity. However, all attempts failed to do so; therefore the 
results with the smallest discontinuities have been presented. These results were for 
geometries that had no outer boundary condition violations and no negative densities at 
lower angles of attack, i.e., 0' to 5° angle of attack. 

For comparison purposes between the various 65' anhedral winglets, the predicted 
performance coefficients have been plotted in figures 4.16.7 through 4.16.10. The most 
noticeable difference occurred in the lift-to-pressure drag ratio (figure 4. 16.8). In this case, 
the winglet with a 2' toe out had a higher lift-to-pressure drag ratio. This trend was 
opposite that of the NACA 1402 case studies where the downward winglets performed 
better toed in than toed out. A difference was also observed in the pressure drag polar for 
Cl’s ranging from 0.05 to 0.20 (figure 4.16.9) where the 4° toe in winglet had the highest 
drag. 

The next study investigated the winglets with 65' dihedral. The toe out angles for this 
winglet were 0°, 2', and 4' while the toe in angle was 2'. The grid parameters used have 
been listed in Table 4.16.1 while the predicted performance coefficients have been given in 
Table 4.16.4. Again, a comparison between the four alignments was desirable. The 
predicted performance coefficients have been plotted in figure 4.16.11 through 4.16.14. In 
figure 4.16.12, the lift-to-pressure drag ratio of the 2' toe in winglet was most desirable 
since it gave the highest values of performance in the range of interest. 

Although the validity of the winglet cases was suspect, a comparison was made between 
the 2' toe in upward winglet, the 2' toe out downward winglet, and the original "natural" 
flow wing. This performance comparison has been shown in figures 4.16.15 through 
4.16.18. In these figures, a large difference was noticeable between the three 
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configurations, especially in the lift-to-pressure drag ratio (figure 4.16.16). The "natural" 
flow wing had the best performance based on these predicted coefficients. 

To further compare the "natural” flow wing to wing-winglets, the 65° anhedral winglet 
with 2° toe out was selected. The effect of adding a winglet to the base wing was more 
easily seen by examining surface pressure coefficients, local crossflow Mach number 
contours, and the contours of local static pressure to freestream static pressure ratio. Three 
axial locations will be presented for an angle of attack of 5° at a freestream Mach number of 
1.62. These axial locations were at 59.7, 92.8, and 99.6 units. For the axial location of 
59.7 units, only one set of figures will be given (figure 4.16.19) since the plots were the 
same for both geometries. Note that the plots would be identical for both geometries before 
the axial location of 90 units due to the fact that the geometry of the "natural" flow wing 
was unaltered until after x= 90 units. At the axial location of 59.7 units, the pressure ratio 
contours, the cross flow Mach number contours, and the surface pressure coefficients were 
smooth. This was a further indication that the solution was valid up to this point. The 
next axial location for the "natural” flow wing was at 92.8 units (figure 4.16.20). The 
surface pressure coefficients do not appear as smooth as they did for the axial location of 
59.7 units. However, this difference could be due to the changing shape of the body. The 
body was altered spanwise such that two pockets of lower pressure existed on the upper 
surface. This can be seen by observing the pressure ratio contours. Although the contours 
presented in figure 4.16.20 were smooth, this was not the case for the wing-winglet 
geometry at 92.8 units (figure 4.16.21). The surface pressure coefficients were much 
larger than those of the wing-alone on the outer lower surface, approximately 7.5 times as 
large. This strongly indicated that the solution might not be valid. Also, the pressure ratio 
contours indicated that the solution was invalid. As compared to the wing, the maximum 
pressure ratios for the winglet case were twice as large as the maximum pressure ratios for 
the wing. The final axial location examined was at 99.6 units. For the "natural" flow 
wing, the contours were smooth which indicated a valid solution (figure 4.16.22). When 
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comparing these plots to those of the wing-winglet case (figure 4.16.23), the solution of 
the wing-winglet case appears to be valid. This could indicate that any non-physical 
disturbances may have damped out. Also note, that the magnitudes of the pressure ratios 
and crossflow Mach numbers are essentially the same. However, further comparisons 
were not done since totally valid solutions were not obtainable. 

4.17 SIMP Verification 

Although the SIMP code was originally planned to be used in verifying the predicted 
values from the EMTAC code, this was not possible. For wing-winglet geometries, valid 
solutions were not be obtained by the full potential code. However, SIMP was able to 
obtain results for the wing-alone 9 using one region and no restarts. For wing-winglet 
geometries, the restart option was necessary. But, the restart option could not be 
manipulated to run the wing-winglets geometries. 
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CHAPTER 5 


CONCLUSIONS AND RECOMMENDATIONS 
5.1 Conclusions 

From the parametric studies conducted for the winglets on the NACA 1402 base wing, 
several conclusions can be drawn. First, winglets can be designed and aligned in 
supersonic flow such that little or no performance penalty will be incurred relative to a wing 
of equal projected span. Another conclusion that can be drawn is that alteration of winglet 
length, sweep, and camber may not be as critical as the toe angle or the orientation of the 
winglet relative to the wing. This, however, would not hold if length, sweep, or camber 
were taken to an extreme. These conclusions differ from trends which have been 
documented for winglets in subsonic or transonic applications, where winglets result in a 
drag reduction. This subsonic drag reduction increases with increasing winglet length. 

In the present study, winglets with negative dihedral and toe in were found to typically 
outperform similar winglets with positive dihedral. A possible explanation of this could be 
that the downward winglet provides a rounded smooth juncture on the upper surface. This 
smooth upper surface juncture appears to allow an acceleration of the flow in the crossflow 
plane and therefore a suction in the direction of lift. A similar juncture was created by the 
winglets with positive dihedral but the suction surface would provide force in the negative 
lift direction. In conclusion, the overall aerodynamic effects of winglets in supersonic flow 
are minimal and they show no improvement over wing-alone geometries. This could be 
due to the fact that the winglets have a small zone of influence. For a Mach number of 
1.62, the zone of influence is 38° inboard and outboard from the leading edge of the 
winglet. Inboard of the Mach line, the span essentially behaves as a two dimensional or 
infinite span. As Mach number was increased, the zone of influence became even smaller 
as exhibited in the results of chapter 4, section 14. 
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For the " natural" flow wing with and without winglets, conclusions can be made but 
the accuracy of the solutions for these winglet cases is probably poor. However, the one 
note of interest was that the best alignment for the "natural" flow winglets appears to be 
opposite of the NACA four digit airfoil winglets. Essentially, the toe angles were equal 
and opposite for the two sets of cases. Unlike the NACA four digit airfoil series winglets, 
the "natural" winglets were never able to equal the "natural" flow wing performance in the 
Cl range of interest, but this may have been due to the "spikes" which were observed in 
the incremental drag build up for the winglet case. 

5.2 Recommendations 

With this study of winglets in supersonic flows completed, several recommendations 
for future study can be suggested. The first recommendation is to find another code, 
preferably a supersonic one, that could easily confirm the performance results obtained 
from the EMTAC code. One possible way to do this might be to use EMTAC-MZ 22 which 
has the capability to perform calculations for subsonic flow and is based upon the EMTAC 
code. EMTAC-MZ would also allow a better defined grid around the winglet due to its 
multi-zone capability. With results from subsonic flows, EMTAC-MZ 22 solutions could 
be compared with results from other codes as well as experimental results from transonic 
designs. This would indirectly help confirm the accuracy of the results obtained by the 
EMTAC code for supersonic Mach numbers. In this study, only NACA airfoils were 
examined for winglet shapes. A different definition of geometry could be beneficial such 
as that the "shearing" process used to develop the "natural" flow wing. A supersonic wind 
tunnel study of one wing-winglet would be beneficial in verifying the EMTAC results. 
This wing-winglet case could have an uncambered winglet with adjustable toe in or out and 
fittings for anhedral or dihedral alignment. 

The final recommendations involve geometric alterations that may actually reduce the 
induced drag on wings at supersonic speeds or have control possibilities. Since the trailing 
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edge sweep was set at 0’ for the EMTAC code, another code or a modified EMTAC code 
could be used that would be capable of handling non-planar wakes with non-zero trailing 
edge sweep. This swept winglet trailing edge would allow extra surface to be present on 
the winglet which could act as a lifting surface. The other geometric recommendation 
would be to alter the leading edge of the wing in supersonic flows. In the present study, it 
was found that changing the length of the winglet had little effect on predicted performance 
values, and that anhedral was better than dihedral. Because of these facts, it is felt that a 
detailed design of a rounded and drooped leading edge might increase lift and/or thrust 
without a drag penalty. Although winglets for the NACA 1402 base wing demonstrated no 
improvement in aerodynamic performance, no other advantages were examined such as 
improvement in stability or in structural loading. These topics could be considered for 
further winglet studies in supersonic flow. One such possibility for winglets 
supersonically could be their usefulness in acting as control surfaces for yaw. By allowing 
the toe angles to be different on each semispan, an effective yaw moment might be created. 
These recommendations could be useful in further verifying the predicted performance 
values found in this study, or improving wing performance supersonically. 
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Figure 2.1.1: Typical example of cross flow geometric cuts of the NACA 1 402 base 

wing to be used by EMTAC or SIMP, three orthographic views and an 
isometric projection. 
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Figure 3.1.3: Cross flow geometric cuts for the NACA 1402 base wing with dihedral 
winglet, three orthographic views and an isometric projection. 


56 



Figure 3.1.4: Schematic of a delta wing planform showing a recompression line as well 

as a maximum thickness line. 
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recompression line 


Figure 3.1.5: 



"Natural" flow wing planform with maximum thickness line and 
recompression line. 
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INCREMENTAL DRAG BUILD-UP 



Figure 4.2.1: Incremental lift and pressure drag build ups for the NACA 1402 base wing 

at 5* angle of attack, M=1.62. 


59 



LIFT BUILD-UP 
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Figure 4.2.2: Total lift and pressure drag plots for the NACA 1402 base wing at 5* angle 
of attack, M=l. 62. 
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Figure 4.3.1: Computational grid surrounding the NACA 1402 base wing and 0% thick, 

75* dihedral winglet at x=19.7, 59.7, 88.15, and 99.6. 
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Continued, x=88.15. 
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Figure 4.3.1: 




Continued, x=99.6. 
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Figure 4.3.4: Predicted performance of the NACA 1402 base wing with 0% thick, 75* 

dihedral winglets; M=1.62; angle of attack versus lift coefficient. 
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Figure 4.3.5: Predicted performance of the NACA 1402 base wing with 0 % thick, 75* 

dihedral winglets; M=1.62; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4.3.8: Predicted performance of the NACA 1402 base wing with 0 % thick, 75 
dihedral winglets; M=1.62; angle of attack versus lift coefficient 
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Predicted performance of the NACA 1402 base wing with 0% thick, 75* 
dihedral winglets; M=1.62; lift-to-pressure drag ratio versus lift coefficient. 


71 


D 0.14 
R 
« 

e a. 12 
c 

0 a . i a 

E 

f 

F 0.08 

1 

C 

I 0.06 

E 

N 

T 0.04 


C 

0 

e 

F 

F 

I 

C 

i 0.019 


Figure 4.3.10: 



■nrnoo o z — x o -h 


-8 .08 
P 

-0.10 


- 0.12 


- 0 .14 


- 0. 16 
d 


Figure 4.3.11: 


I l f l I l ! » I l I ' I < I 

1.2 - 0.1 0.0 0.1 9.2 8.3 0.4 8 . 

L I FT COEFF I C I ENT 


O 2’ toe in 



*| | | M M I I I 1 I ! M I I I I I p I I | MM 

.10 0.12 0.14 0.16 0.18 8.20 8.22 

L l F T COEFF I C I ENT 


Predicted performance of the NACA 1402 base wing with 0 % thick, 75 
dihedral winglets; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.4.1: Computational grid surrounding the NACA 1402 base wing with a 0% 
thick, 75* anhedral winglet at x= 19.7,59.7.89.8, 99.4. 
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Figure 4.4.1: Continued, x=89. 8 
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Figure 4.4.1: Continued, x= 99.6 
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Figure 4.4.2: Predicted performance of the NACA 1402 base wing with 0% thick, 75' 

anhedral winglets; M=1.62; angle of attack versus lift coefficient. 
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Figure 4.4.3: Predicted performance of the NACA 1402 base wing with 0% thick, 75’ 

anhedral winglets; M=1.62; lift-to-pressure drag ratio versus lift 
coefficient. 
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Figure 4.4.4: Predicted performance of the NACA 1402 base wing with 0% thick, 75* 

anhedral winglets; M=1.62; pressure drag coefficient versus lift coefficient. 
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Figure 4.4.5: Predicted performance of the NACA 1402 base wing with 0% thick, 75° 
anhedral winglets; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.4.6: Predicted performance of the NACA 1402 base wing with 0 % thick, 75* 

anhedral winglets; M=1.62; angle of attack versus lift coefficient. 
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Figure 4.4.9: Predicted performance of the NACA 1402 base wing with 0 % thick, 15 ° 
anhedral winglets; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.4. 12: Comparison of the predicted performance betwe 
wing with extension; the 2* toe out, 75* dihedra 
toe in, 75* anhedral wing-winglet; M=1.62; anj 
coefficient. 
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Figure 4.4.13: 


Comparison of the predicted performance b< 
wing with extension; the 2* toe out, 75* dih< 
toe in, 75* anhedral wing-winglet; M=1.62; 
versus lift coefficient. 
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Figure 4.4. 14: Comparison of the predicted performance between the NACA 1402 base 
wing with extension; the 2* toe out, 75* dihedral wing-winglet; and the 2* 
toe in, 75* anhedral wing-winglet; M=1.62; pressure drag coefficient 
versus lift coefficient. 
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Figure 4.4. 15: Comparison of the predicted performance between the NACA 1402 base 
wing with extension; the 2* toe out, 75* dihedral wing-winglet; and the 2° 
toe in, 75* anhedral wing-winglet; M=1.62; pitching moment coefficient 
versus lift coefficient. 
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Figure 4.5.1: Predicted performance of the NACA 1402 base wing with 0 % thick, 75’ 

anhedral winglets with variable camber, M=1.62; angle of attack versus lift 
coefficient. 
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Figure 4.5.2. Predicted performance of the NACA 1402 b« 
anhedral winglets with variable camber M=1 
versus lift coefficient 
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Figure 4.6. 1 : Predicted performance of the NACA 1402 base wing with 0 % thick, 7 5* 
anhedral winglets with variable leading edge sweep; M=1.62; angle of 
attack versus lift coefficient 
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Figure 4.6.2: Predicted performance of the NACA 1402 b 
anhedral winglets with variable leading edge 
lift-to- pressure drag ratio versus lift coefficu 
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Figure 4.6.3: Predicted performance of the NACA 1402 base wing with 0% thick, 75' 

anhedral winglets with variable leading edge sweep; M=1.62; pressure drag 
coefficient versus lift coefficient. 
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Figure 4.6.4: Predicted performance of the NACA 1402 base 
anhedral winglets with variable leading edge swi 
moment coefficient versus lift coefficient. 
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Figure 4.7.1: Predicted performance of the NACA 1402 base wing with 0% thick, 75* 

anhedral winglets with variable length; M=1.62; angle of attack versus lift 
coefficient. 
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Figure 4.7.2: Predicted performance of the NACA 1402 base wing with 0% thick, 75* 

anhedral winglets with variable length; M=1.62; lift-to- pressure drag ratio 
versus lift coefficient 
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Figure 4.7.3: Predicted performance of the NACA 1402 base wing with 0% thick, 75' 
anhedral winglets with variable length; M=1.62; pressure drag coefficient 
versus lift coefficient 
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Figure 4.7.4: Predicted performance of the NACA 1402 base wing with 0% thick, 75* 
anhedral winglets with variable length; M=1.62; pitching moment 
coefficient versus lift coefficient. 
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Figure 4.8.1: Computational grids for the NACA 1402 base wing with a 4% thick, 75* 

dihedral at x= 14.9, 59.7, 88.5, and 99.6. 


103 


Y 


Figure 4.8.1: 




Z 


Continued, x= 88.5. 
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Figure 4.8.2: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
dihedral winglets; M=1.62; angle of attack versus lift coefficient. 
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Figure 4.8.4: Predicted performance of the NACA 1402 base wii 
dihedral winglets; M=1.62; pressure drag coefficie 
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Figure 4.8.5: Predicted performance of the NACA 1402 base wing with 4 % thick, 75' 

dihedral winglets; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.8.7: Total lift and pressure drag build up for the NACA 1402 base wing with a 
4 % thick, 2' toe out, 75* dihedral winglet at 5* angle of attack, M=1.62. 
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Figure 4.9.1: Computational grids for the NACA 1402 base wing with a 4% thick, 75" 

anhedral winglet at x= 19.7, 59.7, 89.8, and 99.4. 
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Figure 4.9.1: Continued, x=89. 8. 
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Continued, x=99.4. 
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Figure 4.9.2: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets; M=1.62; angle of attack versus lift coefficient. 
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Predicted performance of the NACA 1402 base wing with 4% thick, 75' 
anhedral winglets; M=1.62; lift-to- pressure drag coefficient versus lift 
coefficient. 
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Figure 4.9.4: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets; M=1.62; pressure drag coeffient versus lift coefficient. 
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Figure 4.9.5: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.9.6: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets; M=1.62; angle of attack versus lift coefficient. 
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Figure 4.9.7: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 

anhedral winglets; M=1.62; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4.9.9: Predicted performance of the NACA 1402 base wing with 4% thick, 15 ° 

anhedral winglets; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.9.10: Comparison of the predicted performance of the NACA 1402 base wing 

with extension; the 4% thick, 2* toe in, 75* anhedral wing-winglet; and the 
4% thick, 2* toe out, 75* dihedral wing-winglet; M=1.62; angle of attack 
versus lift coefficient. 
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Figure 4.9. 1 1 : Comparison of the predicted performance of the NACA 1402 base wing 

with extension; the 4 % thick, 2* toe in, 75* anhedral wing-winglet; and the 
4% thick, 2* toe out; 75* dihedral wing-winglet; M=1.62; lift-to-pressure 
drag ratio versus lift coefficient. 
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Figure 4.9.12: Comparison of the predicted performance of the NACA 1402 base wing 

with extension; the 4% thick, 2* toe in, 75* anhedral wing-winglet; and the 
4% thick, 2* toe out; 75* dihedral wing-winglet; M=1.62; pressure drag 
coefficient versus lift coefficient. 
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Figure 4.9. 13: Comparison of the predicted performance of the NACA 1402 base wing 

with extension; the 4% thick, 2* toe in, 75* anhedral wing-winglet; and the 
4% thick, 2* toe out; 75* dihedral wing-winglet; M=1.62; pitching moment 
coefficient versus lift coefficient. 
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Figure 4.9.14: 



INCREMENTAL DRAG BUILD-UP 



Incremental lift and pressure drag build up for the NACA 1402 base wing 
with a 4% thick, 2* toe in, 75* anhedral winglet at 5* angle of attack, 
M=1.62. 
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Figure 4.10.1: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets with variable camber, M=1.62; angle of attack versus 
lift coefficient. 
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Figure 4.10.3: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets with variable camber, M=1.62; pressure drag 
coefficient versus lift coefficient. 
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Predicted performance of the NACA 1402 base wing with 4% thick, 75‘ 
anhedral winglets with variable camber, M=1.62; angle of attack versus 
lift coefficient. 
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Figure 4.10.6: Predicted performance of the NACA 1402 base wing with 4 % thick, 75‘ 
anhedral winglets with variable camber, M=1.62; lift-to-pressure drag 
ratio versus lift coefficient. 







Figure 4.10.7: Predicted performance of the NACA 1402 base wing with 4 % thick, 75* 
anhedral winglets with variable camber, M=1.62; pressure drag 
coefficient versus lift coefficient. 
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Figure 4.11.1: Predicted performance of the NACA 1402 base wing with 4% thick, 15 ' 
anhedral winglets with variable length; M=1.62; angle of attack versus lift 
coefficient. 
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Figure 4. 1 1.2: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets with variable length; M=1.62; lift-to-pressure drag ratio 
versus lift coefficient. 
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Figure 4.1 1.4: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets with variable length; M=1.62; pitching moment 
coefficient versus lift coefficient. 
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Figure 4.12. 1: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhedral winglets with variable leading edge sweep; M=1.62; angle of 
attack versus lift coefficient. 
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Figure 4.12.2: Predicted performance of the NACA 1402 base wing with 4 % thick, 75' 
anhedral winglets with variable leading edge sweep; M=1.62; lift-to- 
pressure drag ratio versus lift coefficient. 


0 . 18-1 


D 

S? 

M 

£ 

C 

□ 

E 

r 

F 

I 

C 

I 

e 

H 

T 


0 . 16 - 
0 . 14 - 
0 . 12 - 
0 . 19 - 
8.08 ■ 
0.06 - 
e .94 - 

0.92 - 
0.00 - 



- 0.2 - 0.1 0.0 


0.1 0.2 0.3 8.4 0.5 0.6 


LIFT COEFFICIENT 




O 50' leading edge 



LIFT COEFFICIENT 


Figure 4.12.3: Predicted performance of the NACA 1402 base wing with 4% thick, 75* 
anhcdral winglets with variable leading edge sweep; M=1.62; pressure 
drag coefficient versus lift coefficient. 
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Figure 4.12.4: Predicted performance of the NACA 1402 base wing with 4% thick, 75’ 
anhedral winglets with variable leading edge sweep; M=1.62; pitching 
moment coefficient versus lift coefficient. 
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Figure 4.12.5: 


Incremental lift and pressure drag build up for the MACA 1402 base wing 
with a 4% thick, 2* toe in, 60' leading edge sweep, 75° anhedral winglet at 
5' angle of attack, M=1.62. 
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Figure 4. 14. 1 : Comparison of the predicted performance between the NACA 1402 base 
wing with extension and the 4% thick, 2* toe in, uncambered, 60* leading 
edge sweep, 75* anhedral wing-winglet; M=1.62; angle of attack versus 
lift coefficient. 
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Figure 4.14.2: Comparison of the predicted performance between the NACA 1402 base 
wing with extension and the 4% thick, 2* toe in, uncambered, 60* leading 
edge sweep, 75* anhedral wing-winglet; M=1.62; lift-to-pressure drag 
ratio versus lift coefficient. 
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Figure 4.14.3: Comparison of the predicted performance between the NACA 1402 base 
wing with extension and the 4% thick, 2* toe in, uncambered, 60' leading 
edge sweep, 75' anhedral wing-winglet; M=1.62; pressure drag coefficient 
versus lift coefficient. 
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Figure 4. 14.4: Comparison of the predicted performance between the NACA 1402 base 
wing with extension and the 4% thick, 2* toe in, uncambered, 60* leading 
edge sweep, 75* anhedral wing-winglet; M=1.62; pitching moment 
coefficient versus lift coefficient. 
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Figure 4.14.5: NACA 1402 base wing at axial location 59.7 units and a 5* angle 

of attack, M=1 .62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.14.6: NACA 1402 base wing at axial location 88.8 units and a 5* angle 

of attack, M=1.62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.14.7: NACA 1402 base wing at axial location 99.6 units and a 5* angle 

of attack, M=1.62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.14.8: NACA 1402 base wing-winglet at axial location 88.2 units and a 5* angle 
of attack, M=1.62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.14.9: NACA 1402 base wing-winglet at axial location 99.6 units and a 5* angle 
of attack, M=1.62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.14.10: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=1.40, 1.62; angle of attack versus lift coefficient. 
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Figure 4.14.11: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75’ anhedral winglet for various Mach numbers; 
M=1.40, 1.62; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4.14.12: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=1.40, 1.62; pressure drag coefficient versus lift coefficient. 
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Figure 4.14.13: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4 % thick, 2’ toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=1.40, 1.62; pitching moment coefficient versus lift coefficient. 
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Figure 4.14.14: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2‘ toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=2.0, 2.5; angle of attack versus lift coefficient. 
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Figure 4.14.15: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=2.0, 2.5; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4.14. 16: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=2.0, 2.5; pressure drag coefficient versus lift coefficient. 
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Figure 4.14.17: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2’ toe in, uncambered, 
60’ leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=2.0, 2.5; pitching moment coefficient versus lift coefficient. 
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Figure 4.14.18: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=3.0, 3.5; angle of attack versus lift coefficient. 
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Figure 4.14.19: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4 % thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=3.0, 3.5; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4.14.20: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=3.0, 3.5; pressure drag coeffient versus lift coefficient. 
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Figure 4.14.21: Predicted performance comparison between the NACA 1402 base wing 
with extension and the base wing with a 4% thick, 2* toe in, uncambered, 
60* leading edge sweep, 75* anhedral winglet for various Mach numbers; 
M=3.0, 3.5; pitching moment coefficient versus lift coefficient. 
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Figure 4. 15. 1: Predicted performance of the NACA 1402 base wing with 75* dihedral, 
full tip winglets; M=1.62; angle of attack versus lift coefficient. 
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Figure 4.15.2: Predicted performance of the NACA 1402 base wing with 75’ dihedral, 

full tip winglets; M=1.62; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4.15.3: Predicted performance of the NACA 1402 base wing with 75* dihedral, 
full tip winglets; M=1.62; pressure drag coefficient versus lift coefficient. 
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Figure 4. 15.4: Predicted performance of the NACA 1402 base wing with 75* dihedral, 
full tip winglets; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.15.5: Predicted performance of the NACA 1402 base wing with 75* anhedral, 
full tip winglets; M=1.62; angle of attack versus lift coefficient. 
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Figure 4. 15.6: Predicted performance of the NACA 1402 base wing with 15 ’ anhedral, 
full tip winglets; M=1.62; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4. 15.8: Predicted performance of the NACA 1402 base wing with 75* anhedral, 
full tip winglets; M=1.62; pitching moment coefficient versus lift 
coefficient 
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Figure 4. 15.9: Comparison of the predicted performance of the NACA 1402 base wing, 
the 3* toe out, 75* dihedral, full tip winglct, and the 2* toe in, 75* 
anhedral, full tip winglet; M=1.62; angle of attack versus lift coefficient. 
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Figure 4. 15. 10: Comparison of the predicted performance of the NACA 1402 base wing, 
the 3* toe out, 75* dihedral, full tip winglet, and the 2* toe in, 75* 
anhedral.full tip winglet; M=1.62; lift-to-pressure drag ratio versus lift 
coefficient. 
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Figure 4. 15.11: Comparison of the predicted performance of the NACA 1402 base wing, 
the 3* toe out, 75* dihedral, full tip winglet, and the 2* toe in, 75* 
anhedral, full tip winglet; M=1.62; pressure drag coefficient versus lift 
coefficient. 
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Figure 4.15.12: Comparison of the predicted performance of the NACA 1402 base wing, 
the 3* toe out, 75* dihedral, full tip winglet, and the 2* toe in, 75* 
anhedral, full tip winglet; M=1.62; pitching moment coefficient versus lift 
coefficient. 
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Figure 4.15.13: Comparison of the predicted performance of the NACA 1402 base wing 
and wing-winglets with 75’ dihedral, full tip winglets having various 
maximum camber locations; M=1.62; angle of attack versus lift 
coefficient. 



Figure 4.15.14: Comparison of the predicted performance of the NACA 1402 base wing 
and wing-winglets with 75’ dihedral, full tip winglets having various 
maximum camber locations; M=1.62; lift-to-pressure drag ratio versus lift 
coefficient. 


187 


a.ieJ 



Figure 4.15.15: Comparison of the predicted performance of the NACA 1402 base wing 
and wing-winglets with 75’ dihedral, full tip winglets having various 
maximum camber locations; M=1.62; pressure drag coefficient versus lift 
coefficient. 



Figure 4.15.16: Comparison of the predicted performance of the NACA 1402 base wing 
and wing-winglets with 75* dihedral, full tip winglets having various 
maximum camber locations; M=1.62; pitching moment coefficient versus 
lift coefficient. 
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Figure 4. 15.19: Comparison of the predicted performance of the NACA 1402 base wing 
and wing-winglets with 75' anhedral, full tip winglets having various 
maximum camber locations; M=1.62; pressure drag coefficient versus lift 
coefficient. 



Figure 4.15.20: Comparison of the predicted performance of the NACA 1402 base wing 
and wing-winglets with 75* anhedral, full tip winglets having various 
maximum camber locations; M=1.62; pitching moment coefficient versus 
lift coefficient. 
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Figure 4.15.21: Predicted performance of the NACA 1402 base wing with 2 % thick, 75* 
anhedral winglets with various cambers; M=1.62; angle of attack versus 
lift coefficient. 
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Figure 4.15.24: Predicted performance of the NACA 1402 base wing with 2 % thick, 75' 
anhedral winglets with various cambers; M=1.62; pitching moment 
coefficient versus lift coefficient. 
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Figure 4. 15.25: Predicted performance of the NACA 1402 base wing with 2% thick, 75* 
anhedral winglets with various cambers; M=1.62; angle of attack versus 
lift coefficient. 
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Figure 4.15.27: Predicted performance of the NACA 1402 base wing with 2% thick, 75* 
anhedral winglets with various cambers; M=1.62; pressure drag 
coefficient versus lift coefficient. 
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Figure 4.15.28: 


Predicted performance of the NACA 1402 base wing with 2 % thick, 75“ 
anhedral winglets with various cambers; M=1.62; pitching moment 
coefficient versus lift coefficient. 
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Figure 4.15.29: Comparison of the predicted performance of the NACA 1402 base wing 
with extension and three wing-winglets where the winglets were: 2% 
thick, 4% thick, and full tip at 75* anhedral; M=1.62; angle of attack 
versus lift coefficient 
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Figure 4.15.30: Comparison of the predicted performance of the NACA 1402 base wing 
with extension and three wing-winglets where the winglets were: 2% 
thick, 4% thick, and full tip at 75* anhedral; M=1.62; lift-to-pressure drag 
ratio versus lift coefficient. 
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Figure 4.15.31: Comparison of the predicted performance of the NACA 1402 base wing 
with extension and three wing-winglets where the winglets were: 2% 
thick, 4 % thick, and full tip at 75* anhedral; M=1.62; pressure drag 
coefficient versus lift coefficient. 
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Figure 4.16.1: Computational grids for the "natural" flow wing at x= 19.7, 59.7, 92.8, 
99.6. 
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Figure 4.16.1: Continued, x=92.8. 
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Figure 4.1 6. 1 : Continued, x=99.6. 
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Figure 4. 16.4: Computational grids for the "natural" flow wing with a 2* toe out, 65' 
dihedral at x= 19.7, 59.7, 92.8, 99.6. 
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Figure 4.16.4: Continued, x=92. 8. 
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Figure 4.16.4: Continued, x=99.6. 
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Figure 4. 16.5: InCTemental lift and pressure drag build up for the "natural" flow win 
with a 2* toe out, 65’ anhedral winglet at 5* angle of attack, \1=1.62 
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Figure 4. 16.6: Total lift and pressure drag build up for the "natural" flow wing with a 2 
toe out, 65* anhedral winglet at 5* angle of attack, M=1.62. 
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Figure 4. 1 6.7 : Predicted performance of the "natural" flow wing with 65* anhedral 
winglets at various toe angles; M=1.62; angle of attack versus lift 
coefficient. 
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Figure 4.16.8: Predicted performance of the "natural" flow wing with 65* anhedral 
winglets at various toe angles; M=1.62; lift-to-drag ratio versus lift 
coefficient 
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Figure 4.16.9: Predicted performance of the "natural" flow wing with 65* anhedral 

winglets at various toe angles; M=1.62; pressure drag coefficient versus 
lift coefficient. 
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Figure 4.16.10: Predicted performance of the "natural" flow wing with 65’ anhedral 
winglets at various toe angles; M=1.62; pitching moment coefficient 
versus lift coefficient 
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Figure 4. 16. 1 1 : Predicted performance of the "natural” flow wing with 65 # dihedral 
winglets at various toe angles; M=1.62; angle of attack versus lift 
coefficient. 
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Figure 4.16.12: Predicted performance of the "natural" flow wing with 65* dihedral 

winglets at various toe angles; M=1.62; lift-to-pressure drag ratio versus 
lift coefficient. 
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Figure 4.16.13: Predicted performance of the "natural" flow wing with 65* dihedral 

winglets at various toe angles; M=1.62; pressure drag coefficient versus 
lift coefficient. 
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Figure 4.16.14: Predicted performance of the ’’natural" flow wing with 65* dihedral 
winglets at various toe angles; M=1.62; pitching moment coefficient 
versus lift coefficient 
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Figure 4.16.15: Comparison of the predicted performance of the "natural" flow wing; the 
2* toe out, 65* anhedral winglet; and the 2* toe in, 65* dihedral winglet; 
M=1.62; angle of attack versus lift coefficient. 
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Figure 4.16.16: Comparison of the predicted performance of the "natural" flow wing; the 
2* toe out, 65* anhedral winglet; and the 2* toe in, 65* dihedral winglet; 
M=1.62; lift-to-pressure drag ratio versus lift coefficient. 
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Figure 4.16.17: Comparison of the predicted performance of the "natural" flow wing; the 
2* toe out, 65* anhedral winglet; and the 2* toe in, 65* dihedral winglet; 
M=1.62; pressure drag coefficient versus lift coefficient. 
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Figure 4.16.18: Comparison of the predicted performance of the "natural" flow wing; the 
2* toe out, 65* anhedral winglet; and the 2* toe in, 65* dihedral winglet; 
M=1.62; pitching moment coefficient versus lift coefficient. 
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Figure 4.16.19: "Natural” flow wing at axial location 59.7 units and a 5* angle 

of attack, M=1.62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.16.20: "Natural" flow wing at axial location 92.8 units and a 5 angle 

of attack, M=l. 62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.1 6.20: Continued. 
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Figure 4.16.21: "Natural" flow wing-winglet at axial location 92.8 units and a 5* angle 
of attack, M=1 .62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.16.22: "Natural" flow wing at axial location 99.6 units and a 5* angle 

of attack, M=1.62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure 4.16.22: Continued 
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Figure 4.16.23: "Natural” flow wing-winglet at axial location 99.6 units and a 5 # angle 
of attack, M= 1 .62, a) surface pressure coefficient; b) crossflow Mach 
number contours; c) static pressure ratio contours and d) enlarged scale 
static pressure ratio contours. 
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Figure A. 3. 2: Typical grid for the NACA 1402 base wing with a dihedral winglet 

beginning to form. 
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Table 4.2. 1 : Grid input parameters for the NACA 1402 base wing. 


Geometry 

XSTART 

XEND 

NPT 

INU 

THTU 

Ax 

NACA 

3.0 

81.2 

20-10-10-20 

30 

0° 

0.2 

1402, base 

81.2 

83.0 

20-10-10-20 

30 

0* 

0.1 

wing 

83.0 

84.4 

20-10-10-20 

30 

0° 

0.1 


84.4 

99.8 

20-10-10-20 

30 

0° 

0.2 


Table 4.2.2: 

Predicted performance coefficients for the NACA 1402 base wing. 

Geometry 

a (deg) 

Cl 

Cdp 

Cm 

NACA 

- 5.0 

-.17190 

.01696 

.1029 

1402 base 

0.0 

. 02796 

.00192 

-.0294 

wing 

2 . 5 

. 11710 

. 00677 

-.0873 


5.0 

.21150 

.01912 

-.1497 


9.0 

.36970 

.05756 

-.2561 


15.0 

. 59840 

.15900 

-.4160 


Table 4.3.1: 

Grid input parameters for the NACA 1402 base wing with 0% thick 
winglets. 


Geometry 

XSTART 

XEND 

NPT 

INU 

THTU 

Ax 

75* dihedral 

3.0 

83.0 

20-10-10-20 

30 

0* 

0.2 


83.0 

87.0 

20-10-15-20 

30 45 

30* -65* 

0.1 


87.0 

90.0 

20-10-15-20 

30 45 

60* -65* 

0.1 


90.0 

99.8 

20-10-20-20 

30 50 

75* -65’ 

0.2 

75* anhedral 

3.0 

81.0 

20-10-10-20 

30 

0* 

0.2 


81.0 

84.0 

20-15-10-20 

20 35 

65* -30* 

0.1 


84.0 

87.0 

20-15-10-20 

20 35 

65* -60* 

0.1 


87.0 

99.8 

20-20-10-20 

20 40 

65* -80* 

0.2 
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Table 4.3.2: Predicted performance coefficients for the NACA 1402 base wing with 0% 

thick, 75* dihedral winglets. 


Geometry 

a (deg) 

0’ toe out 

- 5.0 

0.0 

2.5 

5.0 

9 . 0 
15.0 

2* toe out 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 

4* toe out 

- 5.0 

0.0 

2.5 

5.0 

9 . 0 
15.0 

6* toe out 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 

2* toe in 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 

4* toe in 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 

6* toe in 

- 5.0 
0.0 
2 . 5 

5.0 

9.0 
15.0 


Cl 

Cdp 

Cm 

. 17090 

.01682 

.1021 

.02720 

.00191 

-.0286 

. 11470 

. 00667 

-.0852 

.20500 

.01857 

-.1438 

.35800 

.05571 

-.2453 

. 58100 

. 15430 

-.3994 

. 17180 

.01699 

. 1030 

.02677 

.00189 

-.0282 

. 11450 

. 00659 

-.0849 

.20500 

.01847 

-.1438 

.35830 

.05567 

-.2456 

. 58130 

. 15440 

-.3998 

. 17370 

.01735 

.1048 

.02596 

.00193 

-.0275 

. 11430 

.00654 

-.0847 

. 20530 

.01841 

-.1441 

.35900 

.05573 

-.2463 

. 58230 

.15470 

-.4007 

-.17530 

.01777 

.1066 

. 02511 

.00202 

-.0266 

. 11400 

.00653 

-.0844 

.20570 

.01841 

-.1444 

.36080 

.05594 

-.2478 

. 58400 

.15520 

-.4022 

-.17030 

.01671 

. 1016 

. 02769 

.00197 

-.0291 

. 11510 

.00679 

-.0856 

.20530 

.01873 

-.1442 

.35830 

.05587 

-.2457 

. 58130 

. 15440 

-.3998 

-.16990 

.01666 

.1012 

.02810 

.00210 

-.0295 

. 11560 

.00702 

-.0860 

.20590 

.01900 

-.1447 

.35900 

.05617 

-.2464 

.58210 

. 15460 

-.4005 

-.16950 

.01674 

.1008 

. 02866 

.00241 

-.0300 

.11630 

.00744 

-.0866 

. 20660 

.01948 

-.1454 

.35980 

.05670 

-.2472 

.58320 

. 15510 

-.4016 
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Table 4.4. 1 : Predicted performance coefficients for the NACA 1402 base wing with 0% 
thick, 75’ anhedral winglets. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

0* toe out 

-5.0 

-.16470 

.01633 

.0964 


0.0 

. 02791 

.00193 

-.0293 


2.5 

. 11640 

. 00677 

-.0867 


5.0 

. 20950 

. 01903 

-. 1481 


9.0 

. 36750 

. 05736 

-.2544 


15.0 

. 60160 

. 16000 

-.4195 

2* toe in 

-5.0 

-.16520 

. 01640 

. 0968 


0.0 

. 02737 

. 00193 

-.0288 


2.5 

. 11580 

.00667 

-.0861 


5.0 

. 20890 

. 01882 

-.1475 


9.0 

.36670 

.05698 

-.2536 


15.0 

. 60020 

.15930 

-.4180 

4’ toe in 

-5.0 

-.16580 

.01651 

.0974 


0.0 

. 02675 

.00197 

-.0282 


2.5 

. 11510 

. 00660 

-.0855 


5.0 

. 20820 

.01862 

-.1468 


9.0 

.36580 

.05659 

-.2527 


15.0 

. 59880 

. 15860 

-.4166 

6’ toe in 

-5.0 

-.16640 

.01663 

.0980 


0.0 

. 02618 

. 00205 

-.0276 


2.5 

. 11460 

.00660 

-.0850 


5.0 

. 20760 

.01851 

-.1462 


9.0 

.36510 

.05631 

-.2520 


15.0 

. 59780 

. 15800 

-.4155 

2* toe out 

-5.0 

-.16480 

.01635 

.0965 


0.0 

. 02866 

. 00200 

-.0300 


2.5 

. 11750 

. 00696 

-.0878 


5.0 

.21100 

.01939 

-.1496 


9.0 

.36960 

.05804 

-.2565 


15.0 

.60450 

.16130 

-.4226 

4* toe out 

-5.0 

-.16440 

.01638 

.0960 


0.0 

.02989 

.00218 

-.0312 


2.5 

. 11920 

.00736 

-.0894 


5.0 

.21310 

. 02004 

-.1516 


9.0 

.37220 

. 05908 

-.2591 


15.0 

.60790 

. 16300 

-.4261 

6* toe out 

-5.0 

-.16430 

.01653 

.0958 


0.0 

. 03149 

.00255 

-.0327 


2.5 

. 12180 

. 00805 

-.0919 


5.0 

.21600 

. 02094 

-.1543 


9.0 

.37730 

.06091 

-.2642 


15.0 

.61310 

. 16550 

-.4314 
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Table 4.5.1 : Predicted performance coefficients for the NACA 1402 base wing with 0 % 

thick, 2* toe in, 75* anhedral winglets with various cambers. 


Geometry 

a ( deg ) 

m = - 0.02 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 

m = - 0.01 

- 5.0 
0.0 
2 . 5 

5.0 

9.0 
15.0 

m = 0.00 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 

m = 0.01 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 

m = 0.02 

- 5.0 

0.0 

2.5 

5.0 

9.0 
15.0 


C L 

Cdp 

Cm 

-.16500 

.01641 

.0967 

. 02746 

. 00195 

-.0288 

. 11600 

. 00672 

-.0863 

.20920 

.01890 

-.1478 

.36710 

.05712 

-.2540 

. 60060 

. 15950 

-.4184 

-.16510 

.01640 

.0968 

.02743 

.00193 

-.0288 

. 11600 

. 00669 

-.0863 

.20920 

.01886 

-.1477 

.36700 

.05707 

-.2539 

.60090 

. 15950 

-.4187 

-.16520 

.01640 

.0968 

.02737 

.00193 

-.0288 

. 11580 

.00667 

-.0861 

.20890 

.01882 

-.1475 

.36670 

.05698 

-.2536 

.60020 

. 15930 

-.4180 

-.16520 

.01641 

.0969 

.02733 

.00194 

-.0287 

. 11580 

.00668 

-.0862 

.20890 

.01882 

-.1475 

.36670 

. 05697 

-.2536 

. 60020 

. 15930 

-.4181 

-.16530 

.01642 

.0969 

. 02730 

. 00197 

-.0287 

. 11580 

. 00670 

-.0862 

.20890 

.01884 

-.1475 

.36660 

.05698 

-.2536 

.60120 

.15950 

-.4190 
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Table 4.6. 1 : Predicted performance coefficients for the NACA 1402 base wing with 0% 

thick, 2* toe in, 75* anhedral, uncambered winglets with various leading 
edge sweeps. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

22’ leading 

-5.0 

-.16750 

. 01687 

.0990 

edge 

o.o 

. 02815 

. 00203 

-.0295 


2.5 

. 11480 

. 00727 

-.0853 


5.0 

.21090 

.01915 

-.1493 


9.0 

. 37730 

. 05871 

-.2634 


15.0 

. 60760 

. 16110 

-.4250 

44* leading 

-5.0 

-.16650 

. 01663 

.0981 

edge 

0.0 

. 02702 

.00196 

-.0284 


2.5 

. 11660 

. 00669 

-.0867 


5.0 

.21080 

. 01892 

-.1492 


9.0 

. 37020 

. 05738 

-.2568 

65’ leading 

15.0 

. 60630 

. 16080 

-.4238 

-5.0 

-.16520 

. 01640 

.0968 

edge 

0.0 

. 02737 

. 00193 

-.0288 


2.5 

. 11580 

. 00667 

-.0861 


5.0 

.20890 

. 01882 

-.1475 


9.0 

.36670 

. 05698 

-.2536 


15.0 

. 60020 

. 15930 

-.4180 


Table 4.7.1: Predicted performance coefficients for the NACA 1402 base wing with 0% 
thick, 2 toe in, 75 anhedral, uncambered winglets at various lengths. 


Geometry 

10% b/2 
winglet length 


12.5% b/2 
winglet length 


15% b/2 
winglet length 


a (deg) 

Cl 

-5.0 

-.16520 

0.0 

. 02721 

2.5 

. 11550 

5.0 

.20850 

9.0 

.36610 

15.0 

.59920 

-5.0 

-.16530 

0.0 

.02720 

2.5 

. 11560 

5.0 

. 20860 

9.0 

. 36640 

15.0 

. 59970 

-5.0 

-.16520 

0.0 

. 02737 

2.5 

. 11580 

5.0 

.20890 

9.0 

.36670 

15.0 

. 60020 


Cdp 

Cm 

01639 

.0968 

00191 

-.0286 

00665 

-.0858 

01878 

-.1471 

05689 

-.2530 

15900 

-.4170 

01641 

.0969 

00192 

-.0286 

00665 

-.0859 

01879 

-.1472 

05692 

-.2533 

15910 

-.4175 

01640 

. 0968 

00193 

-.0288 

00667 

-.0861 

01882 

-.1475 

05698 

-.2536 

15930 

-.4180 
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Table 4.8.1: Grid input parameters for the NACA 1402 base wing with 4% thick 
winglets. 


Geometry 

XSTART 

XEND 

NPT 

INU 

THTU 

Ax 

75* dihedral 

3.0 

83.0 

20-10-10-20 

30 

0° 

0.2 

with 50* LE 

83.0 

88.0 

20-10-15-20 

30 45 

30* -65* 

0.1 

sweep 

88.0 

89.6 

20-10-15-20 

30 45 

50° -65° 

0.1 


89.6 

99.8 

20-10-15-20 

30 50 

75° -65° 

0.2 

75* anhedral 

3.0 

81.0 

20-10-10-20 

30 

0° 

0.2 

with 50* LE 

81.0 

84.0 

20-15-10-20 

20 35 

65° -30° 

0.1 

sweep 

84.0 

87.0 

20-15-10-20 

20 35 

65* -60* 

0.1 


87.0 

99.8 

20-20-10-20 

20 40 

65* -80* 

0.2 


Table 4.8.2: Predicted performance coefficients for the NACA 1402 base wing with 4% 

thick, 75* dihedral winglets. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

0* toe out 

- 5.0 

-.17290 

.01729 

.1040 

0.0 

.02684 

.00213 

-.0283 


2.5 

. 11500 

. 00686 

-.0855 


5.0 

.20550 

.01872 

-.1444 


9.0 

.35850 

.05580 

-.2458 


15.0 

. 58050 

. 15420 

-.3989 

2’ toe out 

- 5.0 

-. 17420 

.01757 

.1052 

0.0 

. 02588 

.00213 

-.0274 


2.5 

.11450 

. 00674 

-.0850 


5.0 

.20560 

.01856 

-.1444 


9.0 

.35920 

.05574 

-.2465 


15.0 

. 58010 

. 15360 

-.3987 

3* toe out 

- 5.0 

-.17520 

.01777 

.1062 

0.0 

. 02532 

. 00215 

-.0269 


2.5 

. 11430 

. 00669 

-.0847 


5.0 

. 20560 

.01849 

-.1444 


9.0 

.35960 

.05572 

-.2467 


15.0 

. 58150 

.15450 

-.3999 

4* toe out 

- 5.0 

-.17640 

.01798 

.1073 


0.0 

.02492 

.00217 

-.0265 


2.5 

. 11410 

.00666 

-.0845 


5.0 

.20570 

.01845 

-.1445 


9.0 

.36120 

.05587 

-.2482 


15.0 

. 58220 

. 15470 

-.4005 
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Table 4.9.1: Predicted performance coefficients for the NACA 1402 base wing with 4% 
thick, 75’ anhedral winglets. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

1’ toe out 

- 5.0 

-.16530 

.01650 

.0970 


0.0 

.02850 

.00215 

-.0298 


2.5 

. 11780 

.00709 

-.0880 


5.0 

.21180 

.01951 

-.1502 


9.0 

. 37110 

.05825 

-.2575 


15.0 

. 60810 

.16210 

-.4259 

0* toe out 

- 5.0 

-.16530 

. 01652 

.0970 

0.0 

. 02820 

. 00213 

-.0296 


2 . 5 

. 11740 

.00701 

-.0876 


5.0 

.21130 

.01935 

-.1498 


9.0 

. 37040 

.05800 

-.2572 


15.0 

.60740 

.16160 

-.4251 

1* toe in 

- 5.0 

-.16570 

.01658 

.0973 


0.0 

.02782 

.00212 

-.0292 


2.5 

. 11700 

.00693 

-.0872 


5.0 

.21090 

.01920 

-.1494 


9.0 

.37010 

. 05777 

-.2568 


15.0 

. 60670 

. 16140 

-.4244 

2* toe in 

- 5.0 

-.16610 

.01666 

.0977 


0.0 

.02740 

.00213 

-.0288 


2.5 

. 11660 

.00687 

-.0868 


5.0 

.21050 

.01907 

-.1489 


9.0 

.36950 

.05745 

-.2562 


15.0 

. 60560 

.16060 

-.4232 

3* toe in 

- 5.0 

-.16660 

.01677 

.0982 


0.0 

.02696 

.00215 

-.0284 


2.5 

. 11610 

.00682 

-.0864 


5.0 

.21010 

.01894 

-.1485 


9.0 

.36910 

.05720 

-.2558 


15.0 

.60500 

. 16020 

-.4225 

4* toe in 

- 5.0 

-.16700 

.01687 

.0986 


0.0 

.02654 

.00218 

-.0279 


2.5 

. 11570 

.00678 

-.0860 


5.0 

. 20960 

.01882 

-.1481 


9.0 

.36860 

. 05696 

-.2553 


15.0 

. 60390 

. 15960 

-.4214 


244 



Table 4.10. 1: Predicted performance coefficients for the NACA 1402 base wing with 4% 
thick, 2* toe in, 75* anhedral winglets at various cambers. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

m = -0.01 

- 5.0 

-.16580 

.01658 

.0975 


0.0 

.02734 

.00206 

-.0287 


2.5 

. 11660 

. 00683 

-.0868 


5.0 

.21050 

.01906 

-.1489 


9.0 

. 36940 

. 05747 

-.2561 


15.0 

. 60500 

. 16060 

-.4225 

m = 0.00 

- 5.0 

-.16590 

. 01658 

.0975 


0.0 

.02735 

. 00204 

-.0287 


2.5 

. 11660 

. 00680 

-.0868 


5.0 

.21050 

.01903 

-.1489 


9 . 0 

.36960 

.05747 

-.2563 


15.0 

.60554 

.16060 

-.4229 

m = 0.01 

- 5.0 

-.16600 

.01661 

.0977 


0.0 

.02736 

.00207 

-.0287 


2.5 

.11650 

.00681 

-.0868 


5.0 

.21050 

.01903 

-.1489 


9.0 

.36960 

.05745 

-.2563 


15.0 

.60510 

.16050 

-.4226 

m = 0.02 

- 5.0 

-.16610 

.01666 

.0977 


0.0 

.02740 

.00213 

-.0288 


2 . 5 

. 11660 

. 00687 

-.0868 


5.0 

.21050 

.01907 

-.1489 


9.0 

.36950 

.05745 

-.2562 


15.0 

.60560 

. 16060 

-.4232 

m = 0.03 

- 5.0 

-.16620 

.01674 

.0978 


0.0 

.02747 

.00222 

-.0289 


2 . 5 

. 11670 

. 00696 

-.0870 


5.0 

.21060 

.01915 

-.1491 


9.0 

.36960 

.05751 

-.2564 


15.0 

.60540 

. 16060 

-.4230 
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Table 4.1 1. 1: Predicted performance coefficients for the NACA 1402 base wing with 4% 
thick, 75* anhedral, uncambered winglets at various lengths. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

7.5% b/2 

-5.0 

-.16520 

. 01638 

.0968 

winglet length 

0.0 

.02740 

.00194 

-.0288 


2.5 

. 11570 

.00670 

-.0860 


5.0 

.20870 

. 01886 

-.1473 


9.0 

.36620 

.05698 

-.2531 


15.0 

. 59950 

. 15920 

-.4172 

10% b/2 

-5.0 

-.16530 

. 01641 

. 0970 

winglet length 

0.0 

. 02737 

.00195 

-.0288 


2 . 5 

. 11590 

.00671 

-.0862 


5.0 

.20910 

.01887 

-.1476 


9.0 

.36690 

. 05704 

-.2538 


15.0 

. 60060 

. 15940 

-.4183 

12.5% b/2 

-5.0 

-.16650 

.01646 

.0971 

winglet length 

0.0 

. 02735 

. 00197 

-.0287 


2.5 

. 11600 

.00672 

-.0863 


5.0 

.20930 

.01889 

-.1479 


9.0 

. 36740 

.05710 

-.2543 


15.0 

.60130 

. 15960 

-.4191 

15% b/2 

-5.0 

-. 16540 

.01646 

.0971 

winglet length 

0.0 

.02748 

. 00197 

-.0289 


2 . 5 

. 11620 

.00673 

-.0865 


5.0 

.20960 

.01891 

-.1481 


9.0 

. 36780 

.05714 

-.2546 


15.0 

. 60210 

. 15980 

-.4198 
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Table 4.12.1: Predicted performance coefficients for the NACA 1402 base wing with 4% 
thick, 75" anhedral, uncambered winglets having various leading edge 
sweeps. 


Geometry 

a (deg) 

50* leading 

- 5.0 

edge 

0.0 


2 . 5 


5.0 


9.0 


15.0 

60* leading 

- 5.0 

edge 

0 . 0 


2.5 


5.0 


9.0 


15.0 

65* leading 

- 5.0 

edge 

0.0 


^ . -> 

5.0 

9.0 
15.0 


68 * leading 

- 5.0 

edge 

0.0 


2.5 


5.0 


9.0 


15.0 


Cl 

Cdp 

Cm 

-.16590 

.01658 

.0975 

. 02735 

.00204 

-.0287 

. 11660 

.00680 

-.0868 

.21050 

.01903 

-.1489 

. 36960 

.05747 

-.2563 

. 60554 

. 16060 

-.4229 

-.16540 

. 01646 

.0971 

.02748 

.00197 

-.0289 

. 11620 

.00673 

-.0865 

.20960 

.01891 

-.1481 

.36780 

.05714 

-.2546 

. 60210 

. 15980 

-.4198 

-.16510 

.01641 

.0968 

. 02754 

.00197 

-.0289 

. 11590 

. 00671 

-.0862 

.20900 

.01885 

-.1475 

.36670 

.05699 

-.2536 

. 60030 

. 15930 

-.4181 

-.16490 

. 01636 

.0966 

.02753 

.00194 

-.0289 

.11570 

.00669 

-.0860 

.20850 

.01882 

-.1471 

. 36580 

.05688 

-.2528 

. 59890 

. 15900 

-.4167 
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Table 4. 14. 1 : Grid input parameters for the NACA 1402 base wing with extension and the 
base wing with an uncambered, 2’ toe in, 60’ leading edge sweep, 75° 
anhedral winglet. 


Geometry 

XSTART 

XEND 

NPT 

INU 

THTU 

Ax 

NACA 1402 

3.0 

81.2 

20-10-10-20 

30 

O’ 

0.2 

base wing 

81.2 

83.0 

20-10-10-20 

30 

O’ 

0.1 


83.0 

84.4 

20-10-10-20 

30 

O’ 

0.1 


84.4 

99.8 

20-10-10-20 

30 

0* 

0.2 

75’ anhedral 

3.0 

81.0 

20-10-10-20 

30 

0* 

0.2 

with 2* toe 

81.0 

84.0 

20-15-10-20 

20 35 

65’ -30’ 

0.1 

out 

84.0 

87.0 

20-18-10-20 

20 38 

65* -65’ 

0.1 


84.4 

99.8 

20-21-10-20 

20 40 

65’ -80’ 

0.2 


Table 4. 14.2: Predicted performance coefficients for the NACA 1402 base wing with 
extension and the base wing with an uncambered, 2* toe in, 60’ leading 
edge sweep, 75’ anhedral winglet. 


Geometry 

a (deg) 

C L 

Cdp 

Cm 

NACA 

- 5.0 

-.17190 

.01696 

.1029 

1402 base 

0.0 

.02796 

. 00192 

-.0294 

wing 

2.2 

. 10640 

. 00584 

-.0803 


2.5 

. 11710 

.00677 

-.0873 


4.8 

.20310 

. 01778 

-.1440 


5.0 

.21150 

.01912 

-.1497 


9.0 

.36970 

.05756 

-.2561 


15.0 

.59840 

. 15900 

-.4160 

2* toe in, 

- 5.0 

-.16520 

.01643 

. 0968 

60* leading edge, 

0.0 

. 02767 

.00197 

-.0290 

75* anhedral winglet 

2.2 

. 10590 

. 00584 

-.0799 


2.5 

. 11620 

. 00672 

-.0865 


4.8 

.20240 

.01768 

-.1435 


5.0 

.20960 

.01890 

-.1481 


9.0 

.36790 

.05716 

-.2547 


15.0 

.60290 

. 16000 

-.4206 
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Table 4 14.3: Numerical comparison between the NACA 1402 base wing and and the base 
wing with an uncambered, 2’ toe in, 60' leading edge sweep, 75' anhedral 
winglet 


Geometry 

Cl 

Cdp 

Cd 

LTD 

% diff in L/D 

% diff in Cd 

NACA 1402 

0.1064 

0.005838 

0.012633 

8.4223 

0.3586 

-0.1108 

wing 

0.2031 

0.01778 

0.024576 

8.2642 

0.1355 

-0.4801 

75' dihedral 

0.1059 

0.005841 

0.012619 

8.3921 

0.3586 

-0.1108 

wing-winglet 

0.2024 

0.01768 

0.024458 

8.2754 

0.1355 

-0.4801 
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Table 4. 14.4: Predicted performance coefficients for the NACA 1402 base wing and the 
base wing with an uncambered, 2* toe in, 60' leading edge sweep, 75’ 
anhedral winglet at various Mach numbers. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

M 

NACA 

-5.0 

-.18640 

. 01851 

. 1112 

1.4 

1402 base 

o.o 

. 03936 

.00199 

-.0382 

wing 

2.5 

. 13530 

. 00754 

-.1005 



5.0 

.23950 

. 02143 

-.1697 



9.0 

.41860 

. 06547 

-.2908 



15.0 

. 68320 

. 18120 

-.4755 



-5.0 

-.17190 

. 01696 

.1029 

1.62 


0.0 

.02796 

. 00192 

-.0294 


2.5 

.11710 

. 00677 

-.0873 



5.0 

.21150 

.01912 

-.1497 



9.0 

. 36970 

.05756 

-.2561 



15.0 

.59840 

. 15900 

-.4160 



-5.0 

-.14980 

. 01522 

.0894 

2.0 


0.0 

.01524 

. 00197 

-.0191 


2 . 5 

. 09407 

. 00585 

-.0704 



5.0 

. 17230 

.01613 

-.1215 



9.0 

. 30660 

. 04846 

-.2117 



-5.0 

-.12600 

. 01342 

.0755 

2.5 


0.0 

.00679 

.00213 

-.0116 


2.5 

. 07338 

.00512 

-.0551 



5.0 

. 13950 

.01366 

-.0984 



9.0 

.24790 

.04001 

-.1710 



-5.0 

-.10750 

.01189 

.0643 

3.0 


0.0 

. 00339 

. 00216 

-.0082 


2 . 5 

. 05940 

. 00456 

-.0446 



5.0 

. 11550 

. 01172 

-.0813 



9.0 

. 20750 

.03394 

-.1426 



-5.0 

-.09458 

.01072 

.0565 

3.5 


0.0 

.00111 

.00203 

-.0056 



2.5 

.04994 

.00401 

-.0375 



5.0 

. 09909 

.01022 

-.0697 



9.0 

. 18050 

. 02968 

-.1237 



15.0 

. 31100 

. 08393 

-.2150 
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Table 4.14.4: Continued. 


Geometry 

2* toe in, 

60* leading edge, 

75* anhedral winglet 


a ( deg ) 

Cl 

Cdp 

Cm 

M 

- 4.5 

-. 15440 

.01440 

.0819 

1.4 

0.0 

. 03854 

. 00205 

-.0374 


3.0 

. 15460 

.00947 

-.1131 


5.0 

.23820 

. 02123 

-.1687 


9.5 

. 44300 

. 07297 

-.3080 


15.0 

. 69440 

. 18390 

-.4865 


- 5.0 

-.16540 

.01646 

.0971 

1.62 

0.0 

. 02748 

. 00197 

-.0289 


2 . 5 

. 11620 

.00673 

-.0865 


5.0 

.20960 

.01891 

-.1481 


9.0 

.36780 

.05714 

-.2546 


15.0 

.60210 

. 15980 

-.4198 


- 5.0 

-.14710 

.01507 

.0870 

2.0 

0.0 

.01507 

.00200 

-.0189 


2.5 

. 09333 

.00583 

-.0697 


5.0 

. 17190 

.01606 

-.1213 


9.0 

. 30610 

.04834 

-.2114 


- 5.0 

-.12380 

.01328 

.0735 

2.5 

0.0 

.00669 

. 00217 

-.0115 


2 . 5 

.07289 

.00512 

-.0546 


5.0 

.13910 

.01363 

-.0981 


9.0 

.24700 

.03985 

-.1702 


- 5.0 

-.10550 

.01176 

.0625 

3.0 

0.0 

. 00349 

. 00220 

-.0082 


2.5 

.05919 

.00458 

-.0444 


5.0 

. 11520 

.01171 

-.0811 


9.0 

.20770 

.03397 

-.1428 


- 5.0 

-.09458 

.01072 

.0565 

3.5 

0.0 

.00111 

.00203 

-.0058 


2.5 

.04994 

.00401 

-.0375 


5.0 

.09909 

.01022 

-.0697 


9.0 

.18050 

.02968 

-.1237 


15.0 

.31100 

. 08393 

-.2150 
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Table 4.15.1: Grid input parameters fo the NACA 1402 base wing with full tip chord 
winglets. 


Geometry 

XSTART 

XEND 

NPT 

INU 

THTU 

Ax 

75* dihedral 

3.0 

81.2 

20-10-10-20 

30 

30* 

0.2 


81.2 

83.0 

20-10-15-20 

30 45 

30* -75* 

0.1 


83.0 

84.4 

20-10-15-20 

30 45 

60* -75* 

0.1 


84.4 

99.8 

20-10-20-20 

30 50 

75* -75* 

0.2 

75* anhedral 

3.0 

80.4 

20-10-10-20 

30 

0* 

0.2 


80.4 

81.4 

20-15-10-20 

20 35 

75* -30* 

0.1 


81.4 

82.2 

20-15-10-20 

20 35 

75* -55* 

0.1 


82.2 

99.8 

20-20-10-20 

20 40 

75* -80* 

0.2 


Table 4.15.2: Predicted performance coefficients for the NACA 1402 base wing with full 
tip, 75* dihedral winglets. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

2* toe out 

-5.0 

-.17820 

.01811 

.1087 


o.o 

.02522 

.00223 

-.0269 


2.5 

. 11530 

. 00680 

-.0857 


5.0 

.20780 

.01872 

-.1464 


9.0 

.36130 

.05589 

-.2483 


15.0 

.58080 

. 15430 

-.3995 

3* toe out 

-5.0 

-.17960 

.01841 

.1100 


0.0 

. 02432 

. 00222 

-.0261 


2.5 

. 11550 

. 00676 

-.0859 


5.0 

.20770 

.01859 

-.1463 


9.0 

. 36170 

.05579 

-.2486 


15.0 

.58190 

. 15450 

-.4005 

4* toe out 

-5.0 

-.18090 

.01875 

.1113 


0.0 

.02343 

. 00227 

-.0252 


2.5 

.11450 

. 00670 

-.8490 


5.0 

.20720 

.01847 

-.1458 


9.0 

.36160 

.05565 

-.2484 


15.0 

. 58290 

. 15470 

-.4011 

6* toe out 

-5.0 

-.18420 

. 01960 

. 1143 


0.0 

.02134 

. 00245 

-.0233 


2.5 

. 11350 

.00668 

-.0839 


5.0 

.20730 

.01842 

-.1458 


9.0 

. 36280 

.05569 

-.2495 


15.0 

. 58560 

. 15550 

-.4035 
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Table 4.15.3: Predicted performance coefficients for the NACA 1402 base wing with full 
tip, 75* anhedral winglets. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

2* toe in 

- 5.0 

-.16750 

.01692 

.0990 

0.0 

.02709 

. 00223 

-.0286 


2.5 

. 11770 

.00702 

-.0879 


5.0 

.21300 

.01937 

-.1512 


9.0 

.37460 

.05826 

-.2608 


15.0 

.61430 

. 16280 

-.4311 

3’ toe in 

- 5.0 

-.16850 

. 01714 

.0999 

0.0 

.02621 

. 00229 

-.0277 


2.5 

. 11690 

.00699 

-.0871 


5.0 

.21210 

.01918 

-.1503 


9.0 

. 37340 

.05782 

-.2596 


15.0 

.61300 

. 16210 

-.4297 

4* toe in 

- 5.0 

-.16930 

.01730 

. 1006 

0.0 

.02567 

. 00233 

-.0272 


2.5 

. 11640 

.00693 

-.0866 


5.0 

.21160 

.01902 

-.1498 


9.0 

.37300 

.05754 

-.2591 


15.0 

.61240 

. 16150 

-.4290 
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Table 4.15.4: Predicted performance coefficients for the NACA 1402 base wing with full 
tip, 75* anhedral winglets having variable maximum camber locauon. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

20% chord 

- 5.0 

-.17990 

.01857 

.1095 

upward 

0.0 

.02740 

.00275 

-.0292 

winglet 

5.0 

.21370 

.01988 

-.1520 


10.0 

. 40940 

.07119 

-.2829 


15.0 

. 59320 

. 15770 

-.4107 

40% chord 

0.0 

. 02728 

. 00273 

-.0291 

upward 

5.0 

.21340 

. 01979 

-.1517 

winglet 

10.0 

.40920 

.07116 

-.2827 

15.0 

.59260 

. 15750 

-.4101 

60% chord 

- 5.0 

-.17590 

.01812 

. 1055 

upward 

0.0 

.02762 

.00271 

-.0294 

winglet 

5.0 

.21280 

.01969 

-.1511 

10.0 

.40830 

.07099 

-.2819 


15.0 

.59950 

. 15950 

-.4173 

20% chord 

- 5.0 

-.16640 

.01669 

.0979 

downward 

0.0 

. 02600 

. 00266 

-.0287 

winglet 

2.5 

. 11960 

. 00727 

-.0897 

5.0 

.21830 

.02053 

-.1553 


9.0 

.37660 

.05920 

-.2628 


15.0 

.62850 

. 16770 

-.4455 

40% chord 

- 5.0 

-.16660 

.01673 

.0981 

downward 

0.0 

. 02567 

.00264 

-.0284 

winglet 

2.5 

. 11940 

.00723 

-.0895 

5.0 

.21860 

.02053 

-.1553 


9.0 

. 37650 

.05912 

-.2627 


15.0 

.61750 

. 16450 

-.4345 

60% chord 

- 5.0 

-.16660 

.01670 

.0981 

downward 

0.0 

.02556 

. 00266 

-.0283 

winglet 

2.5 

. 11920 

.00722 

-.0893 

5.0 

.21870 

.02052 

-.1557 


9.0 

.37650 

.05908 

-.2627 


15.0 

.61650 

. 16430 

-.4335 
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Table 4.15.5: Grid input parameters fo the NACA 1402 base wing with 2 % thick, 
75* anhedral winglets. 


Geometry 

XSTART 

XEND 

NPT 

INU 

THTU 

Ax 

75* anhedral 

3.0 

81.0 

20-10-10-20 

30 

0* 

0.2 


81.0 

84.0 

20-15-10-20 

20 35 

65* - 30 ° 

0.1 


84.0 

87.0 

20-15-10-20 

20 35 

65* -60* 

0.1 


87.0 

99.8 

20-20-10-20 

20 40 

65* -80* 

0.2 


Table 4.15.6: Predicted performance coefficients for the NACA 1402 base wing with 
2% thick, 75' anhedral winglets having variable camber. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

m = -0.01 

- 5.0 

-.16590 

. 01656 

.0976 


0.0 

.02720 

.00199 

-.0286 


2.5 

. 11640 

.00675 

-.0867 


5.0 

.21040 

.01898 

-.1488 


9.0 

.36970 

.05746 

-.2563 


15.0 

.60530 

.16060 

-.4228 

m = 0.00 

- 5.0 

-.16610 

.01656 

.0977 


0.0 

.02718 

.00197 

-.0286 


2.5 

.11640 

.00671 

-.0866 


5.0 

.21030 

.01893 

-.1488 


9.0 

.36930 

.05734 

-.2560 


15.0 

.60530 

. 16060 

-.4228 

m = 0.01 

- 5.0 

-.16610 

.01659 

.0977 


0.0 

.02726 

.00200 

-.0287 


2.5 

.11640 

.00672 

-.0867 


5.0 

.21030 

.01892 

-.1488 


9.0 

.36960 

.05735 

-.2563 


15.0 

.60570 

. 16060 

-.4233 

m = 0.03 

- 5.0 

-.16630 

.01671 

.0978 


0.0 

.02730 

.00216 

-.0287 


2.5 

.11660 

. 00688 

-.0869 


5.0 

.21050 

. 01905 

-.1490 


9.0 

.36950 

.05741 

-.2563 


15.0 

. 60640 

.16070 

-.4240 

m = 0.04 

- 5.0 

-.16630 

.01681 

.0979 


0.0 

.02736 

.00230 

-.0288 


2.5 

. 11670 

.00728 

-.0870 


5.0 

.21060 

.01920 

-.1491 


9.0 

.36970 

.05756 

-.2565 


15.0 

.60540 

. 16060 

-.4231 
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Table 4. 16. 1 : Grid input parameters for the "natural" flow wing and the "natural" flow 
wing with 65* anhedral and dihedral winglets. 


Geometry 

XSTART 

XEND 

NPT 

INU 

THTU 

Ax 

"Natural" 

5.0 

81.2 

20-15-15-20 

20 35 50 

75* -20* -75" 

0.2 

wing 

81.2 

83.0 

20-15-15-20 

20 35 50 

75* -20* -75* 

0.1 


83.0 

84.4 

20-15-15-20 

20 35 50 

75* -20* -75" 

0.1 


84.4 

99.8 

20-15-15-20 

20 35 50 

75* -20* -75" 

0.2 

65* dihedral 

5.0 

90.8 

20-10-10-20 

30 

-15" 

0.2 


90.8 

91.4 

20-10-15-20 

30 45 

5’ -65* 

0.1 


91.4 

94.0 

20-10-18-20 

30 48 

35" -65" 

0.1 


94.0 

99.8 

20-10-21-20 

30 51 

60* -65* 

0.2 

65’ anhedral 

5.0 

90.4 

20-10-10-20 

30 

-15* 

0.2 


90.4 

91.2 

20-15-10-20 

20 35 

65* -35* 

0.1 


91.2 

91.8 

20-18-10-20 

20 38 

65* -60* 

0.1 


91.8 

99.8 

20-21-10-20 

30 41 

65* -75* 

0.2 


Table 4.16.2: Predicted performance coefficients for the "natural" flow wing; M=1.62. 


Geometry 

a (deg) 

Cl 

Cdp 

Cm 

’Natural" flow 

-5.0 

-.21100 

.02705 

.1340 


0.0 

-.01080 

.00438 

.0006 

wing 

2.5 

.08486 

. 00563 

-.0629 

5.0 

. 17820 

.01454 

-.1252 


9.0 

.32280 

.04475 

-.2233 
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Table 4.16.3: Predicted performance coefficients for the "natural" flow wing with 
65* anhedral winglets with various toe angles; M=1.62. 


Geometry a (deg) 

2* toe out -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 

0* toe out -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 

2* toe in -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 

4* toe in -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 


C L 

Cdp 

Cm 

-.20470 

.02651 

. 1287 

-.00879 

.00476 

-.0017 

. 08623 

.00629 

-.0647 

. 17920 

.01532 

-.1267 

.25220 

.02794 

-.1762 

.34490 

. 05095 

-.2397 

-.20590 

.02672 

. 1299 

-.00983 

.00484 

-.0007 

.08511 

. 00624 

-.0636 

. 17790 

.01510 

-.1255 

.25090 

.02761 

-.1749 

. 34330 

. 05043 

-.2380 

-.20640 

. 02689 

. 1304 

-.01029 

.00496 

-.0003 

. 08464 

.00628 

-.0631 

. 17750 

.01505 

-.1250 

.25030 

.02745 

-.1742 

. 34260 

. 05018 

-.2373 

-.20660 

.02703 

.1305 

-.01075 

.00512 

.0001 

.08430 

.00638 

-.0628 

. 17710 

.01509 

-.1246 

.25000 

. 02740 

-.1739 

.34240 

.05005 

-.2370 
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Table 4.16.4: Predicted performance coefficients for the "natural" flow wing with 
65' dihedral winglets with various toe angles; M=1.62. 


Geometry a (deg) 

2' toe in -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 

0* toe out -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 

2' toe out -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 

4* toe out -5.0 

0.0 

2.5 

5.0 

7.0 

9.5 


Cl 

Cdp 

Cm 

-.21510 

.02932 

. 1389 

-.01453 

.00569 

.0037 

.08114 

. 00654 

-.0598 

. 17530 

. 01509 

-.1229 

.24650 

. 02709 

-.1707 

.33770 

. 04940 

-.2325 

-.21640 

.0298 

.1402 

-.01570 

.00591 

.0059 

. 08058 

. 00663 

-.0593 

. 17400 

.01500 

-.1217 

.24640 

.02705 

-.1705 

. 33760 

.04932 

-.2324 

-.21720 

. 03025 

.1410 

-.01654 

.00613 

. 0057 

. 08487 

.00711 

-.0633 

. 17360 

.01500 

-.1213 

.24610 

. 02705 

-.1703 

.33750 

.04930 

-.2323 

-.21820 

.03065 

.1420 

-.01707 

. 00640 

.0062 

.07956 

.00692 

-.0583 

.17400 

.01513 

-.1217 

.24610 

.02713 

-.1702 

.33750 

.04938 

-.2324 
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APPENDIX A 


EMTAC CODE DESCRIPTION 
A.l Conservation Equations 

The fortran program EMTAC, Euler Marching Technique for Accurate Computation, is 
a marching algorithm designed for computing supersonic flows over realistic 
configurations, particularly fighter-like configurations. To gain an understanding of 
the code, several areas had to be addressed. Among these areas were the governing 
equations, the solution process, the information necessary for the program to operate, the 
gridding technique, and the geometric input format. With the approach to be described, 
the code was able to solve the unsteady Euler equations and take into account supersonic 
speeds while allowing subsonic pockets to exist. With the use of the Euler equations, 
a wider range of flows could be computed, including flows with strong shocks as well as 
weak shocks in the flow, relative to those which could be calculated using a full potential 
method. 

Since the code of interest was an Euler based program, the primary starting point was 
converting the exact Euler conservation equations into a discretized conservation law 
form. The conservation law form of the unsteady Euler equations in cartesion coordinates 
and time, t, was given by: 


3(pu) 3(pv) 3(pw) 

dx + dy + dz ~ U 


(A. 1.1) 


du; du; dp 

p 9T + p u j^ = 4 


(A. 1.2) 


7 + V'(eV) = V-(-p8ij) (A. 1.3) 

at 

Equations A. 1.1 through A. 1.3 were then written into vector columns by assigning 
particular variables into groups of 
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e 


“(e+p)u“ 


~(e+p)v - 


~(e+p)w _ 

P 


pu 


pv 


pw 

pu 

,E = 

pu 2 +p 

,F = 

puv 

, G = 

puw 

pv 


pvu 


pv 2 +p 


pvw 

_pw_ 


_ pwu _ 


_ pwv _ 


_pw 2 +p_ 


where Q, E, F, and G were used in the conservation equations.The new form of the 
equations became the following: 

Q t + E x +F y + G z =0 (A. 1.4) 

For this code, energy was given the definition of 


e= 


(Y-l) 


+ 


p(u 2 + v 2 + w 2 ) 
2 


(A. 1.5) 


The next steps were to convert equation A. 1.4 to form a numerical approximation 
through use of a finite volume technique. The developers of the code accomplished this 
conversion by assuming a time invariant grid and using the transformation of coordinates 
with 


t = t 

(A. 1.6) 

£= ^(x,y,z) 

(A. 1.7) 

T( = r|(x,y,z) 

(A. 1.8) 

>> 

x 

II 

(A. 1.9). 


With this set of transformation equations, the Jacobian of the transformation became 


j=^ 


(A. 1.10) 


5(x,y,z) 

Using the Jacobian of the transformation, the quantities Q, E, F, and G were transformed 
into the following: 


.Q=Q/J 

(A.. 1.11) 

E_= (UJ)E + (VJ)F + (^J)G 

(A.1.12) 

F_= Olx/J) E + (rjy/J) F + (xiz/J) G 

(A. 1.13) 

Q_= (Cx/J) E + (Cy/J) F + (Cz/J) G 

(A. 1.14) 
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Equations A. 1.11 through A. 1.14 were used in conjunction with A. 1.6 through A. 1.9 
and substituted into A. 1.4 to yield. 

Hx+ E.^ +F_ 11 + G.; = 0 (A. 1.15) 

Finally, associating the rj, and £ directions with the subscripts j, k, and 1, respectively, 
the numerical approximation in semidiscrete conservation law form was given as 
(Q j,k,l ) x + (E'j+l/2,k,l - E'j-i/2,k,l ) + (Fjjc+i/2,1 - Fj ( k- 1/2,1 ) 

+ (G'j,k,i+i/2 - G'j,k,M/2 ) = o (A.1.16) 

In equation A.1.16, the values of E', F, and G' were numerical fluxes at the boundary 
sides of the cell for which discrete conservation was considered. Q 'j,k,l was the 
representative conserved quantity considered conveniently to be the cell average value. The 
integer subscripts denote the cell or centroid of the cell while the half-integer subscripts 
denote cell sides. Once the semidiscrete conservation form was established, the next area 
of concern was the solution process. 

A.2 The Solution Process 

To obtain solutions for the equation A.1.16, several factors must be dealt with. Two 
such factors were the normals or metrics of a cell and the volume of each cell. These cell 
parameters were important since A.1.16 could be regarded as a finite volume 
discretization if the following associations were made: 

Q'j,k,l = QVjjcj (A.2.1) 

where "V" is the cell volume under consideration. Also, the cell normals were to be found. 
However, the four "comers" used in defining the normal vectors of the cell surface did 
not necessarily lie in one plane. Thus the normal vector was actually a representative 
normal. With the geometric details completed, the next step of the solution process was a 
discretization scheme for total variation diminishing, TVD. For more information on TVD 
schemes consult references 23, 24, and 25. 
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In determining the numerical flux, Q m and Qm+1 were taken as neighboring states. A 
Riemann solver was employed since the solver can divide the flux between neighboring 
states into component parts associated with each wave field. In turn, these components can 
be again divided into positive and negative wave speeds. The actual fluxes, E, F, and G, 
when evaluated with the metrics equated to cell face normals can be written in the same 
functional form: 

E_, F_, _Q = f(Q,n x .n y ,n z ) = f(Q,N) (A.2.2) 

From the Riemann solvers, an underlying upwind scheme was based on Roe's 
approximate Riemann solver. With this approach, cell interface values of density, 
velocities, and enthalpy were computed using a special averaging procedure where 

Pm+l/2 = V Pm V Pm+1 (A. 2. 3) 


(u,v,w) m+1/2 


(u,v,w) m+ i Vp m + 


V Pm + l 


1 + (u , v, w 

+ V p m 



(A.2.4) 


im+1/2 =- 


hm+1 V Pm+1 + hm V p 
V pm+1 + V Pm 


m 


(A. 2.5) 


and m could equal j, k, or 1. 

From the last three equations, the speed of sound was calculated to be 

Cm+l/2 = V { h - (u 2 + v 2 + w 2 )/2) (y- 1) (A.2.6) 


Finally, a contravariant velocity was defined: 

U = n x u + n y v + n z w 

As for the eigennvalues, the following were given: 
X 1 = H - c Vn£ + n ^ + n^ 
X2.3,4 =]1 

x 5 = U_ + c Vn)t + n^ + n^ 


(A.2.7). 

(A.2.8) 

(A.2.9) 

(A. 2.10). 
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Also defined were the following: 


n = n x>y ^ / V n £ + n ^ + n\ (A.2.U), 


0 = 


u 2 + v 2 + w 2 
2 


(A.2.12). 


These equations, A.2.3 through A.2.12, were the main emphasis of the Riemann 
solver. For upwind biased schemes, various accuracies can be obtained. In this case, a 
high accuracy TVD scheme was used (see references 23,24,25). 


A.3 Code Information, Grids, and Geometric Format 

The information for utilizing the EMTAC code was given in the "header" section of the 
code input. The following example (page 264) was for a wing-alone and the final three 
examples of header data (pp. 265-267) were for wing-winglet geometries once the winglet 

section was encountered. 

To place the grid around the wing, the code only needed two crossflow regions. 
Between these regions, the header allowed for controlling of the grid line between the two, 
such as the radial line angle with the horizontal. For wing-winglet geometries, more effort 
was needed for the grid and in controlling key radial lines. If care was not taken, the grid 
tended to overlap itself at the winglet. With an overlapped grid, erroneous results would be 
obtained. Figures A.3.1 through A.3. 3 give typical grid examples. 

Finally, for the code to place a grid around the geometry, a specified format was 
needed. The geometry listing given on pages 268 through 271 was that typically used. 
The first numbers listed gave the geometric axial location and how many patches the cross 
sectional cut had. Next, the line of integers gave the patch number and the number of 
points per patch. Each cut was given in this manner with the header instructing the 
EMTAC code at which axial location to stop. 
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1000 


NMARCH 

25 


KMAX (. 

69 


LMAX ( i 

2 


NRM 

20 


NDISK 

40 


NPRNT 

1 


MRCHAC 

2 


CROSAC 

5 


GLOBIT 

300 


NCON 

30 


NITER 

6 


NSPTI 

OF 25 LOCATIONS) 

0 


BCONAC 

50 


LWKSU 

50 


LWKEL 

1 


ITERGS 

1 


ITERGE 

5.0 


CFLIN 

.20 


DZTAIN 

.20 


DZMAX 

. 20 


DZMIN 

1.62 


FSMACH 

15.00 


ALFA 

70. 


THTO 

1.4 


GAM 

-1.00 


SCHEME 

2.0 


CMPRES 

0.0001 


GLOBER 

0.1 


DETA 

0.1 


DXI 

0.1 


DZTA 

8.0 


XSTART 

81.00 


XEND 

0.010 


DTINOW 

10.050 


DTI SUB 

0.010 


DTI SUP 

0. 


XXXI 

100.00 


XWAKE 

0.0 


ZWAKE 

1.0 


CHL 

0.0 


PTNOSE 

0.000 


YSHIFT 

00.00 


XM0 

000.0 


YM0 

4476.5540 

AAA 

100. 

00 

ALL 

1.00 


OMEGA 

T 


OPRNT 

T 


NUGRID 

T 


IREAD 

F 


RPLANE 

F 


DISKIN 

T 


TAPEW 

F 


TAPE8W 

T 


FORCE 

30 

00 

00 

0.0 


00.0 

10.00 


20.00 

04 


ISC 

20 

10 

10 

00 

00 

00 

***** 

end of emt 


{ 3-S)/< 1-S) 
NOT USED ** 


NO. OP STREAMWISE STEP. 

JMAX) NO. OF POINT IN NORMAL DIR. 

<MAX) NO. OF POINT IN CIRCUM. DIR. 

NO. OF GRIDN SECTION. 

RESTART SOL. FOR EVERY # STEP. 

OUTPUT FOR EVERY NP STEPS. 

MARCH ACCURACY. ( 1:1ST ORDER; 2 : 2ND ORDER ) 

CROSS SECTION ACCURACY .( 1 : 1 ST ORDER; 2 : 2ND ORDER) 
INTERNAL ITERATION IN X STEP. 

INITIAL CONICAL DATA ITERATIONS, 

NO. OF ITERATION FOR GRID. 

NO. OF ZTA LOCATIONS FOR DETAILED FLOWF I ELD OUTPUT 

ORDER OF B.C. EXTRAPOLATION. 

WAKE STARTING POINT ON THE UPPER SURFACE. 

WAKE ENDING POINT ON THE LOWER SURFACE. 

NUMBER OF STARTING GLOB ITERATION. 

NUMBER OF END GLOB ITERATION. 

F10.5 ** NOT USED ** 

INPUT STEP SIZE. 

MAX. STEP SIZE. 

MIN. STEP SIZE. A DIR. 

FREE STREAM MACH NO. 

ANGLE OF ATTACK. 

OUTER BOUNDARY. (DEGREE) 

RATIO OF SPECIFIC HEAT. 

TVD SCHEME. ( S ) “ 

COMPRESSION FACTOR FOR CLIPPING 
CONVERGENCE CRITERION. * 

** NOT USED ** 

** NOT USED ** 

** NOT USED ** 

STARTING X LOCATION. 

ENDING X LOCATION. 

INVERSE OF THE TIME STEP 
INVERSE OF THE TIME STEP 
INVERSE OF THE TIME STEP 
** NOT USED ** 

WAKE START LOCATION. (X) 

WAKE START LOCATION. (Z) 

GEOMETRIC SCALE FACTOR 
AXIAL COORDINATE SHIFT. 

Y-AXIS COORDINATE SHIFT. 

REF. X FOR MOMENT REFERENCE CENTER 
REF. Y FOR MOMENT REFERENCE CENTER 
REF. AREA. 

REF. LENGTH FOR PITCH MOMENT. 

RELAXI ATION FACTOR. 

L3 T:BOUNDARY OUTPUT ONLY; F : FULL OUTPUT. 

NUMERICAL GRID GENERATION? 

TiINPUT BODY GEOM ; F : ANALYTIC GEOM. 

** NOT USED ** 

RESTART DATA FROM TAPE? 

WRITE RESTART DATA ON UNIT 2 AND 4 
WRITE DATA ON UNIT 8 FOR SUBSONIC FLOW. 

DO FORCE CALCULATION 

INU 5 1 5 GRID SECTION LINE. 

00.0 

00 79.00 00.00 

(GEOMETRY) 


(MAX 


FOR SUB SONIC. 
FOR SUP SONIC. 


** NOT USED ** 


* * 
* * 


NOT USED 
NOT USED 


* * 
* * 


00 00 
00.0 00.0 
30.00 40.00 60 

NO. OF PATCH 

20 00 00 00 

00 00 00 00 


THTU ANGLE 


00 

00 


00 

00 


NPT 

ND 
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1000 

NMARCH 

25 

KMAX (UMAX) 

74 

LMAX ( KMAX ) 

3 

NRM 

1 

NDISK 

40 

NPRNT 

1 

MRCHAC 

2 

CROSAC 

5 

GLOBIT 

50 

NCON 

30 

NITER 

3 

NSPTI 

OF 25 LOCATIONS) 

0 

BCONAC 

50 

LWKSU 

50 

LWKEL 

1 

ITERGS 

1 

ITERGE 

5.0 

CFLIN F 1 0 . 

.20 

DZTAIN 

.20 

DZMAX 

.20 

DZMIN 

1.62 

FSMACH 

15.00 

ALFA 

70 . 

THTO 

1.4 

GAM 

-1.00 

SCHEME 

2.0 

CMPRES 

0.0001 

GLOBER 

0.1 

DETA 

0.1 

DXI 

0.1 

DZTA 

81.0 

XSTART 

84.00 

XEND 

0.010 

DTINOW 

10.050 

DTI SUB 

0.010 

DTI SUP 

0. 

XXXI 

100.00 

XWAKE 

0.0 

ZWAKE 

1.0 

CHL 

0.0 

PTNOSE 

0.000 

YSHIFT 

00.00 

XM0 

000.0 

ymo 

4476.5540 

AAA 

100.00 

ALL 

1.00 

OMEGA 

T 

OPRNT L 

T 

NUGRID 

T 

IREAD 

F 

RPLANE 

T 

DISKIN 

T 

TAPEW 

F 

TAPE8W 


NO. OF STREAMWISE STEP. 

NO. OF POINT IN NORMAL DIR. 

NO. OF POINT IN CIRCUM. DIR. 

NO. OF GRIDN SECTION. 

RESTART SOL. FOR EVERY # STEP. 

OUTPUT FOR EVERY NP STEPS. 

MARCH ACCURACY. ( 1:1ST ORDER; 2:2ND ORDER ) 

CROSS SECTION ACCURAC Y . ( 1 : 1 ST ORDER; 2 : 2ND ORDER) 
INTERNAL ITERATION IN X STEP. 

INITIAL CONICAL DATA ITERATIONS , 

NO. OF ITERATION FOR GRID. 

NO. OF ZTA LOCATIONS FOR DETAILED FLOWFI ELD OUTPUT (MAX 

ORDER OF B.C. EXTRAPOLATION. 

WAKE STARTING POINT ON THE UPPER SURFACE. 

WAKE ENDING POINT ON THE LOWER SURFACE. 

NUMBER OF STARTING GLOB ITERATION. 

NUMBER OF END GLOB ITERATION. 

** NOT USED ** 

INPUT STEP SIZE. 

MAX. STEP SIZE. 

MIN. STEP SIZE. A DIR. 

FREE STREAM MACH NO. 

ANGLE OF ATTACK. 

OUTER BOUNDARY. (DEGREE) 

RATIO OF SPECIFIC HEAT. 

TVD SCHEME. (S) 

COMPRESSION FACTOR FOR CLIPPING. (3-S)/(l-S) 

CONVERGENCE CRITERION. ** NOT USED ** 

** NOT USED ** 

** NOT USED ** 

** NOT USED ** 

STARTING X LOCATION. 

ENDING X LOCATION. 

INVERSE OF THE TIME STEP. 

INVERSE OF THE TIME STEP FOR SUB SONIC. ** NOT USED ** 
INVERSE OF THE TIME STEP FOR SUP SONIC. ** NOT USED ** 
** NOT USED ** 

WAKE START LOCATION. (X) 

WAKE START LOCATION. (Z) ** NOT USED ** 

GEOMETRIC SCALE FACTOR 
AXIAL COORDINATE SHIFT. 

Y-AXIS COORDINATE SHIFT. 

REF. X FOR MOMENT REFERENCE CENTER 
REF. Y FOR MOMENT REFERENCE CENTER 
REF. AREA. 

REF. LENGTH FOR PITCH MOMENT. 

RELAXI ATION FACTOR. 

T: BOUNDARY OUTPUT ONLY; F:FULL OUTPUT. 

NUMERICAL GRID GENERATION? 

T : INPUT BODY GEOM ; F : ANALYTIC GEOM. 

** NOT USED ** 

RESTART DATA FROM TAPE? 

WRITE RESTART DATA ON UNIT 2 AND 4 
WRITE DATA ON UNIT 8 FOR SUBSONIC FLOW. 


T FORCE DO FORCE CALCULATION 

20 35 00 00 00 INU 515 GRID SECTION LINE. 

65.0 -30.0 00.0 00.0 00.0 

81.40 82.50 83.60 00.00 00.00 00.00 00.00 
04 ISC NO. OF PATCH. (GEOMETRY) 

20 15 10 20 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 


THTU ANGLE 

NPT 

ND 


***** enc j 0 f emtac header 


265 


1000 


NMARCH 

25 


KMAX ( , 

74 


LMAX ( ; 

3 


NRM 

1 


NDISK 

40 


NPRNT 

1 


MRCHAC 

2 


CROSAC 

5 


GLOBIT 

50 


NCON 

30 


NITER 

3 


NSPTI 

OF 25 LOCATIONS) 

0 


BCONAC 

50 


LWKSU 

50 


LWKEL 

1 


ITERGS 

1 


ITERGE 

5.0 


CFLIN 

.20 


DZTAIN 

.20 


DZMAX 

.20 


DZMIN 

1.62 


FSMACH 

15.00 


ALFA 

70. 


THTO 

1.4 


GAM 

-1.00 


SCHEME 

2.0 


CMPRES 

0.0001 


GLOBER 

0.1 


DETA 

0.1 


DXI 

0.1 


DZTA 

84.0 


XSTART 

07.00 


XEND 

0.010 


DTINOW 

10.050 


DTI SUB 

0.010 


DTI SUP 

0. 


XXXI 

100.00 


XWAKE 

0.0 


ZWAKE 

1.0 


CHL 

0.0 


PTNOSE 

0.000 


YSHIFT 

00.00 


XM0 

000.0 


YM0 

4476.5540 

AAA 

100. 

00 

ALL 

1.00 


OMEGA 

T 


OPRNT 

T 


NUGRID 

T 


IREAD 

F 


RPLANE 

T 


DISKIN 

T 


TAPEW 

F 


TAPE8W 

T 


FORCE 

20 

38 

00 

65.0 


-60.0 

84.40 


85.50 

04 


ISC 

20 

18 

10 

00 

00 

00 

* * * * * 

end 

1 of emt 


NO. OF STREAMWISE STEP. 

JMAX) NO. OF POINT IN NORMAL DIR. 

KMAX } NO. OF POINT IN CIRCUM. DIR. 

NO. OF GRIDN SECTION. 

RESTART SOL. FOR EVERY # STEP. 

OUTPUT FOR EVERY NP STEPS . 

MARCH ACCURACY. ( 1:1ST ORDER; 2 : 2ND ORDER ) 

CROSS SECTION ACCURAC Y . ( 1 : 1 ST ORDER; 2 : 2ND ORDER) 
INTERNAL ITERATION IN X STEP. 

INITIAL CONICAL DATA ITERATIONS, 

NO. OF ITERATION FOR GRID. 

NO. OF ZTA LOCATIONS FOR DETAILED FLOWF I ELD OUTPUT (MAX 

ORDER OF B.C. EXTRAPOLATION. 

WAKE STARTING POINT ON THE UPPER SURFACE. 

WAKE ENDING POINT ON THE LOWER SURFACE 
NUMBER OF STARTING GLOB ITERATION. 

NUMBER OF END GLOB ITERATION. 

F10.5 ** NOT USED ** 

INPUT STEP SIZE. 

MAX. STEP SIZE. 

MIN. STEP SIZE. A DIR. 

FREE STREAM MACH NO. 

ANGLE OF ATTACK. 

OUTER BOUNDARY. (DEGREE) 

RATIO OF SPECIFIC HEAT. 

TVD SCHEME . ( S ) 

COMPRESSION FACTOR FOR CLIPPING. (3-S)/(l-S) 

CONVERGENCE CRITERION. ** NOT USED ** 

** NOT USED ** 

** NOT USED ** 

** NOT USED ** 

STARTING X LOCATION. 

ENDING X LOCATION. 

STEP. 

STEP FOR SUB SONIC. ** NOT 
STEP FOR SUP SONIC. ** NOT 


NOT USED ** 


CENTER 

CENTER 


00 


INVERSE OF THE TIME 
INVERSE OF THE TIME 
INVERSE OF THE TIME 
** NOT USED ** 

WAKE START LOCATION. (X) 

WAKE START LOCATION. (Z) 

GEOMETRIC SCALE FACTOR 
AXIAL COORDINATE SHIFT. 

Y-AXIS COORDINATE SHIFT. 

REF. X FOR MOMENT REFERENCE 
REF. Y FOR MOMENT REFERENCE 
REF. AREA. 

REF. LENGTH FOR PITCH MOMENT. 

RELAXI ATI ON FACTOR. 

L3 T : BOUNDARY OUTPUT ONLY; F : FULL OUTPUT. 
NUMERICAL GRID GENERATION? 

TrINPUT BODY GEOM ; F : ANALYTIC GEOM. 

** NOT USED +* 

RESTART DATA FROM TAPE? 

WRITE RESTART DATA ON UNIT 2 AND 4 
WRITE DATA ON UNIT 8 FOR SUBSONIC FLOW. 
DO FORCE CALCULATION 

INU 515 GRID SECTION LINE. 

00.0 

00 00.00 

( GEOMETRY) 

00 00 
00 


USED ** 
USED ** 


00 

00,0 00.0 
60 00.00 00 
NO. OF PATCH 
00 00 00 

00 00 00 

ac heade r ***** 


86 

20 

00 


00.00 


00 


THTU ANGLE 


NPT 

ND 
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1000 

NMARCH 


25 

KMAX ( JMAX ) 

79 

LMAX (KMAX) 

3 

NRM 


20 

NDISK 


80 

NPRNT 


1 

MRCHAC 


2 

CROSAC 


5 

GLOBIT 


50 

NCON 


30 

NITER 


5 

NSPTI 


OF 25 LOCATIONS) 


0 

BCONAC 


50 

LWKSU 


50 

LWKEL 


1 

ITERGS 


1 

ITERGE 


5.0 

CFLIN F10. 

.20 

DZTAIN 


. 20 

DZ MAX 


.20 

DZMIN 


1.62 

FSMACH 


15.00 

ALFA 


70 . 

THTO 


1.4 

GAM 


-1.00 

SCHEME 


2.0 

CMPRES 


0.0001 

GLOBER 


0.1 

DETA 


0.1 

DXI 


0.1 

DZTA 


87.0 

X START 


99.80 

XEND 


0.010 

DTINOW 


10.050 

DTI SUB 


0.010 

DTI SUP 


0. 

XXXI 


100.0 

XWAKE 


0.0 

ZWAKE 


1.0 

CHL 


0.0 

PTNOSE 


0.000 

YSHIFT 


00.00 

XM0 


000.0 

ymo 


4476.5540 AAA 


100. 

00 ALL 


1.00 

OMEGA 


T 

OPRNT 

L 

T 

NUGRID 


T 

IREAD 


F 

RPLANE 


T 

DISKIN 


T 

TAPEW 


F 

TAPE8W 


T 

FORCE 


20 

41 00 

00 

65.0 

-80.0 


88.40 91.50 

9 * 

04 

ISC 


20 

21 10 

20 

00 

00 00 

00 

***** 

end of emtac 


NO. OF STREAMWISE STEP. 

NO. OF POINT IN NORMAL DIR. 

NO. OF POINT IN CIRCUM. DIR. 

NO. OF GRIDN SECTION. 

RESTART SOL. FOR EVERY # STEP. 

OUTPUT FOR EVERY NP STEPS. 

MARCH ACCURACY. ( 1:1ST ORDER; 2 : 2ND ORDER ) 

CROSS SECTION ACCURACY .( 1 : 1 5T ORDER; 2: 2ND ORDER) 
INTERNAL ITERATION IN X STEP. 

INITIAL CONICAL DATA ITERATIONS, 

NO. OF ITERATION FOR GRID. 

NO. OF ZTA LOCATIONS FOR DETAILED FLOWF I ELD OUTPUT (MAX 

ORDER OF B.C. EXTRAPOLATION. 

WAKE STARTING POINT ON THE UPPER SURFACE. 

WAKE ENDING POINT ON THE LOWER SURFACE. 

NUMBER OF STARTING GLOB ITERATION. 

NUMBER OF END GLOB ITERATION. 

5 ** NOT USED ** 

INPUT STEP SIZE. 

MAX. STEP SIZE. 

MIN. STEP SIZE. A DIR. 

FREE STREAM MACH NO. 

ANGLE OF ATTACK. 

OUTER BOUNDARY. (DEGREE) 

RATIO OF SPECIFIC HEAT. 

TVD SCHEME. (S) . . 

COMPRESSION FACTOR FOR CLIPPING. ( 3 — S)/l 1 — S > 

CONVERGENCE CRITERION. ** NOT USED ** 

** NOT USED ** 

** NOT USED ** 

** NOT USED ** 

STARTING X LOCATION. 

ENDING X LOCATION. 

INVERSE OF THE TIME STEP. 

INVERSE OF THE TIME STEP FOR SUB SONIC. ** NOT USED 
INVERSE OF THE TIME STEP FOR SUP SONIC. ** NOT USED 
** NOT USED ** 

WAKE START LOCATION. (X) 

WAKE START LOCATION. (Z) 

GEOMETRIC SCALE FACTOR 
AXIAL COORDINATE SHIFT. 

Y-AXIS COORDINATE SHIFT. 

REF. X FOR MOMENT REFERENCE CENTER 
REF. Y FOR MOMENT REFERENCE CENTER 
REF. AREA. 

REF. LENGTH FOR PITCH MOMENT. 

RELAXIATION FACTOR. 

3 T : BOUNDARY OUTPUT ONLY; F : FULL OUTPUT. 

NUMERICAL GRID GENERATION? 

T: INPUT BODY GEOM ; F : ANALYTIC GEOM. 

** NOT USED ** 

RESTART DATA FROM TAPE? 

WRITE RESTART DATA ON UNIT 2 AND 4 
WRITE DATA ON UNIT 8 FOR SUBSONIC FLOW. 

DO FORCE CALCULATION 
00 INU 515 GRID SECTION LINE. 

00.0 00.0 00.0 
1.00 96.00 99.60 00.00 

NO. OF PATCH. (GEOMETRY) 

00 00 00 00 00 

00 00 00 00 00 

heade c ***** 


** NOT USED ** 


00.00 


THTU ANGLE 


NPT 

ND 



1.000000 4 


30 0 


. 305776 

. 000000 

. 300579 

.012889 

.295382 

. 025779 

.290185 

.038668 

.284988 

.051558 

.279791 

.064447 

.274594 

.077337 

.269398 

. 090226 

. 264201 

. 103116 

. 259004 

. 116005 

.253807 

.128894 

.248610 

.141784 

.243413 

. 154673 

.238216 

.167563 

.233019 

. 180452 

.227822 

. 193342 

.222625 

.206231 

.217428 

.219121 

.212231 

.232010 

.207034 

.244900 

.201837 

. 257789 

.196640 

.270678 

.191443 

. 28 3568 

. 186246 

. 2964 57 

.181049 

. 309347 

.175852 

. 322236 

.168339 

.335126 

.159279 

. 348015 

.150219 

. 360905 

.141159 

. 373794 

30 0 


.141159 

.373794 

.138227 

.376984 

.135295 

. 380174 

.132363 

.383364 

.129431 

. 386555 

.126499 

. 389745 

.123568 

.392935 

. 120636 

. 396125 

. 117704 

. 399315 

.114772 

. 402505 

.111840 

.405695 

.108908 

.408886 

.105976 

.412076 

.103044 

.415266 

.100112 

.418456 

.095299 

.421646 

.088492 

.424836 

.081685 

.428026 

.074877 

.431216 

.068070 

.434407 

.061263 

.437597 

.054456 

.440787 

.047649 

.443977 

.040842 

.447167 

. 034035 

.450357 

. 027228 

.453547 

.020421 

.456738 

.013614 

.459928 

.006807 

.463118 

. 000000 

.466308 

30 0 


.000000 

.466308 

.005726 

. 463118 
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-.011452 

.459928 

-.017178 

.456738 

-.022904 

.453547 

-.028631 

.450357 

-.034357 

.447167 

-.040083 

.443977 

-.045809 

.440787 

-.051535 

.437597 

-.057261 

.434407 

-.062987 

.431216 

-.068713 

.428026 

-.074439 

.424836 

-.080166 

.421646 

-.084155 

.418456 

-.086505 

.415266 

-.088855 

.412076 

-.091205 

.408886 

-.093555 

.405695 

-.095905 

.402505 

-.098254 

.399315 

-.100604 

.396125 

-.102954 

.392935 

-.105304 

. 389745 

-.107654 

. 386555 

-.110004 

. 38 3 364 

-.112354 

.380174 

-.114704 

. 376984 

-.117054 

. 373794 

30 0 

-.117054 

.373794 

-.123652 

. 360905 

-.130250 

.348015 

-.136848 

.335126 

-.141806 

.322236 

-.144308 

.309347 

-.146809 

.296457 

-.149311 

.283568 

-.151813 

.270678 

-.154314 

.257789 

-.156816 

.244900 

-.159318 

.232010 

-.161819 

.219121 

-.164321 

.206231 

-.166823 

.193342 

-.169324 

.180452 

-.171826 

.167563 

-.174328 

.154673 

-.176829 

.141784 

-.179331 

.128894 

-.181833 

.116005 

-.184334 

.103116 

-.186836 

.090226 

-.189337 

.077337 

-.191839 

.064447 

-.194341 

.051558 

-.196842 

.038668 

-.199344 

.025779 

-.201845 

.012889 

-.204347 

.000000 

2.000000 

4 

30 0 

.492600 

.000000 

.481545 

.027418 

.470491 

.054835 

.459436 

.082253 

.448382 

.109670 
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. 4 3 7 3 2 7 
. 426273 
.415218 
.404163 
. 393108 
. 382054 
. 370999 
.359944 
. 348890 
.337835 
.326781 
.315726 
. 304671 
.293617 
. 282562 
.271507 
.260453 
.249398 
.238344 
.227289 
.216234 
.205180 
.194125 
. 183071 
.172016 
30 0 

.172016 
. 168683 
.165350 
.162017 
.158684 
.155351 
.152019 
.148686 
.145353 
.142020 
.138365 
.134007 
.129650 
. 125292 
.120934 
. 116576 
.112218 
.107860 
.103503 
.099145 
. 091059 
. 080941 
. 070823 
. 060706 
.050588 
.040470 
.030353 
.020235 
.010118 
.000000 
30 0 

.000000 
.008511 
.017022 
.025533 
. 034044 
. 042555 
. 051066 
.059577 
. 068088 


.137088 
. 164505 
.191923 
. 2193 40 
. 246758 
.274175 
. 301593 
. 329010 
. 356428 
. 383845 
.411263 
.438680 
.466098 
.493515 
.520933 
. 540350 
. 575768 
.603185 
.630603 
.658020 
.685438 
.712855 
.740273 
.767690 
.795108 

.795108 
. 799850 
.804591 
.809333 
.814074 
.018816 
.823558 
.828299 
.833041 
.837783 
.842524 
. 847266 
. 852007 
.856749 
.861491 
.866232 
.870974 
.875716 
.880457 
.885199 
.889940 
. 894682 
. 099424 
. 904165 
.908907 
. 91 3649 
.918390 
. 923132 
. 92787 3 
.932615 

. 932615 
.927873 
.9231 32 
. 918390 
. 913649 
.908907 
.904165 
.899424 
.894682 
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-.076599 
-.083340 
- . 0868 3 3 
-.090326 
-.093818 
-.097311 
-.100804 
-.104297 
-.107790 
-.111283 
-.114776 
-.117537 
-.119965 
-.122392 
-.124819 
-.127246 
-.129673 
-.132100 
-.134528 
-.136955 
-.139382 
4 30 0 

-.139382 
-.144703 
-.150025 
-.155346 
-.160667 
-.165989 
-.171310 
-.176631 
-.181953 
-.187274 
-.192595 
-.197917 
-.203238 
-.208559 
-.213880 
-.219202 
-.224523 
- . 229844 
-.235166 
-.240487 
-.245808 
-.251130 
-.256451 
-.261773 
-.267094 
-.272415 
-.277736 
-.283058 
-.288379 
-.293700 


. 889940 
.885199 
.880457 
.875716 
. 870974 
.866232 
. 861491 
.856749 
.852007 
.847266 
.842524 
.837783 
. 8 3304 1 
.828299 
.823558 
.818816 
.814074 
. 809333 
.804591 
.799850 
.795108 

. 795108 
.767690 
.740273 
.712855 
.685438 
.658020 
.630603 
.603185 
.575768 
. 548350 
. 520933 
. 49 3515 
.466098 
.438680 
.411263 
. 38384 5 
. 356428 
. 329010 
.301593 
.274175 
.246758 
.219340 
. 191923 
. 164505 
. 137088 
. 109670 
. 082253 
. 054835 
. 027418 
.000000 
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APPENDIX B 


NACA FOUR DIGIT AIRFOIL SERIES DESCRIPTION 


B.l Naming Convention and Equations 


In studying the effects of winglets on wings at supersonic Mach numbers, a systematic 
approach was needed to geometrically describe both the wing and winglet. The 
approach chosen was to use a series of airfoil shapes. Since no family of airfoil shapes 
was obviously better than another, the NACA four digit series of wing sections was 
selected due to their ease in being analytically defined. 

The four digit series had a precise naming convention and limited number of equations 
to define the airfoil. An example of the NACA series was a NACA 1402 airfoil. In this 
example, the first number indicated that the airfoil had a maximum camber of 1% which 
was the vertical maximum camber divided by the chord length. The second number, four, 
gave the location of the maximum camber as four tenths of chord from the leading edge and 
similarly, the remaining two digits gave the thickness of the airfoil as 2 percent of 
chord. To numerically describe the shape at all points on the airfoil, equations B.1.1 
through B.l. 5 were used. These equations were the following: 


x u = x - y t sin 0 
xj = x + y t sin 0 I 
yu = yc + yt cos0 


(B.1.1) 


yi = yc - yt cos 0j 


yt= 0^2 ( 0.269 Vx - 0.126 x -0.3516 x 2 + 0.2843 x 3 - 0.1015 x 4 ) (B.l. 2) 

r t = 1.109 t 2 (B. 1.3) 

y c =rf- (2px -x 2 ) (B.1.4) 

yc = (l5j2 ((1 ' 2p) + 2pX ‘ x2) (B.l. 5) 


where equation B.1.4 was used forward of the maximum mean line ordinate and B.1.5 
was for aft of the maximum ordinate. In these equations, "m" was the maximum 
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ordinate of the mean line expressed as a fraction of chord and "p" was the chordwise 

position of the maximum ordinate. Also, the angle, 0, was defined as: 

0 = tan* 1 ( gjfc ) (B.1.6) 

In the present study, the airfoils of the base wing remained unchanged while those 
airfoils describing the winglets were altered. The basic wing had an airfoil section of a 
NACA 1402. Also, the wing tip extension had the same airfoil shape. 

B.2 Program to Represent the Four Digit Airfoils 

To obtain a number of discrete points for the program in Appendix C, the following 
program written by Dr. J. M. Kuhlman was used. This program was based on equations 
B.1.1 through B.1.6 and generated output in three different formats. These formats 
would allow various other codes to graphically display the individual airfoils generated, 
and to write output files of these airfoils in WIBCO 26 - 27 and Hess formats. This program 
is listed on the following pages. 
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PROGRAM FOURDIG( OUTPUT , TAPE6 -OUTPUT , TAPE7 , TAPE9 , TAPE1 1 ) 
DIMENSION XOC( 60 ) ,XUP(60),ZUP(60,1) r XLO( 60 ) ,ZLO( 60 , 1 ) 
DIMENSION ZUPT( 60 ) , ZLOT( 60 ) 

DIMENSION ZUPTT( 1 ) , ZLOTT( 1 ) 

REAL M,T,P,RT 
NXOC-51 
NXOCM-NXOC- 1 
DXOC-1 . /FLOAT ( NXOCM ) 

WRITE (6,110) DXOC 
XOC( 1 ) =0 . 

I ORDER- 1 
IPT--1 

DO 11 1-2 , NXOC 
11 XOC ( I )-XOC( 1-1 ) +DXOC 

WRITE ( 6 , 1 1 0 ) ( XOC ( I ) , I - 1 , NXOC ) 

NXOC-NXOC+3 
NXOCM-NXOC-1 
DO 2 I-NXOC ,4,-1 

2 XOC( I )«XOC( 1-3 ) 

XOC( 2 ) -0 . 001 
XOC( 3 ) =0 . 002 
XOC ( 4 ) -0 . 00 3 

WRITE( 6,110) ( XOC ( I ) , I - 1 , NXOC ) 

110 FORMAT ( 6 Ell . 4 ) 

C 

C NOW HAVE 54 XOC CHORD STATIONS: 51 EQUALLY SPACED EVERY 2% 

C AND 3 AT 0.1, 0.2, 0.3 % 

C 

C NACA 4-DIGIT AIRFOIL FAMILY; SEE PP 113-115, ABBOTT AND VON 

C DOENHOFF 

C 

C M - MAX ORDINATE OF CAMBER LINE 

C P - PERCENT CHORD POSITION OF MAX ORDINATE 

C 

C T - MAX SEMI-THICKNESS 

C RT - NOSE RADIUS - 1.1019*T*T 

C 

M-0.02 
T-0 . 00 
P-0.4 

RT-1 . 1019*T*T 
DO 4 1=1, NXOC 
CALL YCS ( XOC ( I ) , YC , P , M ) 

CALL DYCDX ( XOC ( I ) ,DYDX,P,M) 

CALL YTH ( XOC ( I ) , YT , T ) 

THETA-ATAN ( DYDX ) 

ST-SIN( THETA) 

CT-COS( THETA) 

C 

C USE NOSE RADIUS FOR SMALL XOC 

C 

I F ( I .GE. 5 .OR. YT.GT.RT) GOTO 3 
I F ( XOC ( I ) . GE . RT*CT ) GOTO 3 
XMCL-XOC ( I ) /COS ( THETA) 

PHI-ACOS ( 1 . -XMCL/RT ) 

YTN-RT*SIN( PHI ) 

I F ( YT . LT . YTN ) YT-YTN 

3 CONTINUE 

XUP( I )-XOC( I ) -YT*ST 
ZUP( I , 1 ) -YC+YT*CT 
XLO ( I ) -XOC( I ) +YT* ST 
ZLO( I , 1 )-YC-YT*CT 

4 CONTINUE 
C 

C CHECK EXACT, ORIGINAL DATA 

C 
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non 


WRITE ( 6,111) 

111 FORMAT ( /5X , 1 8HEND OF EXACT CALCS) 

WRITE (6,110) ( XUP( I ) , 1-1 , NXOC ) 

WRITE (6,110) (ZUP(I,1),I-1 ,NXOC ) 

WRITE(6, 110) ( XLO ( I ) , I -1, NXOC) 

WRITE (6 , 110 ) ( ZLO< I , 1 ) , 1-1 , NXOC ) 

C 

C NOW INTERPOLATE TO EQUAL XOC LOCATIONS FOR UPPER AND LOWER SURF 

C 

ZUPT ( 1 )*0 . 

ZLOT ( 1 )-0 . 

ZUPT{ NXOC )“Z UP {NXOC, 1 ) 

ZLOT ( NXOC )-ZLO( NXOC, 1 ) 

DO 5 I » 2 , NXOCM 
XTER-XOC ( I ) 

CALL I UN I ( 60 , NXOC , XUP , 1 , ZUP, I ORDER , XTER , ZUPTT , IPT, IER ) 

IF (IER.NE.0) GOTO 999 
IPT--1 

CALL IUNI (60, NXOC, XLO, 1 , ZLO, IORDER , XTER , ZLOTT , IPT, IER) 
IF(IER.NE.O) GOTO 999 
IPT--1 

ZUPT ( I ) -ZUPTT ( 1 ) 

Z LOT ( I ) -ZLOTT ( 1 ) 

5 CONTINUE 
10 FORMAT ( 7 Fl 0 . 6 ) 

WRITE( 7,10) (XOC(I),I-l, NXOC ) 

WRI TE ( 7,10) (ZUPT(I) ,1=1, NXOC ) 

WRITE (7,10) (ZLOT(I) ,1-1, NXOC) 

HESS FORMAT OUTPUT FILE, SPAN-1 

Y-0. 

DO 7 7 I -1, NXOC 
NC-0 

IF(I.EQ.l) NC-2 

77 WRITE (9,81) XOC( I ) , Y , ZUPT( I ) , NC , 0 
NC-0 

DO 78 I -NXOC ,1,-1 

78 WRITE (9,81) XOC ( I ) , Y , ZLOT( I ) , NC , 0 
Y-l . 

DO 79 1-1 ,NXOC 
NC-0 

IF(I.EQ.l) NC-1 

79 WRITE ( 9,81) XOC (I),Y,ZUPT(I),NC,0 
NC-0 

DO 80 I -NXOC ,1,-1 

80 WRITE (9,81) XOC (I) ,Y,ZLOT(I),NC,0 

81 FORMAT ( 3F10.5,2I1) 

WRITE SAS FILE OF AIRFOIL COORDS, TO FTP TO WVU VAX CLUSTER 

82 FORMAT ( IX , 3 Fl 0 . 6 ) 

DO 83 1-1 , NXOC 

83 WRITE (11,82) XOC ( I ) , ZUPT ( I ) 

DO 84 I -NXOC ,1,-1 

84 WRITE (11,82) XOC ( I ) , ZLOT( I ) 

GOTO 1000 „ 

998 FORMAT ( /5X , 30HERROR IN SUBROUTINE IUN I - 1 ERR- , 2 1 5 , Fl 0 . 6/ ) 

999 WRITE(6,998) IER, I, XTER 
1000 CONTINUE 

END 

SUBROUTINE YCS ( X , Y , P , VM ) 

Y-VM*(2.*P*X-X*X)/P/P 
IF(X.LE.P) GOTO 1 

Y-VM* ((l.-2.*P)+2.*P*X-X*X)/(l.-P)/(l.-P) 

1 CONTINUE 
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RETURN 

END 

SUBROUTINE D YCDX (X,SLP,P,VM) 

SLP-2 . * VM* ( P-X)/P/P 

IF(X.LE.P) GOTO 1 

SLP-2. *VM*( P-X)/( 1 ,-P)/( 1 .-P) 

1 CONTINUE 
RETURN 
END 

SUBROUTINE YTH { X , Y , T } 

CO-0.29690 
Cl-0 .1260 
C2-0. 35160 
C3-0. 20430 
C4-0. 10150 

Y-C0 *SQRT ( X ) - C 1 * X-C 2 *X*X+C3*X**3-C4*X**4 

Y- Y*T/0 . 2 

RETURN 

END 
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APPENDIX C 


PROGRAM FOR CROSS SECTIONAL CUTS 
C.l The Input File and Description 

The fortran program, KEENANB, was the primary code used to establish geometries 
with cross sectional cuts perpendicular to the axial direction, as required by the EMTAC 
program. The input for this code consisted of a series of airfoils described by a specified 
number of discrete points. A description of the input file format is given below, while a 
sample input is given on pages 281-283. A listing of the program appears on pages 284- 
295. 

The first three lines of the input file were remnants from the input geometry files used in 
the WIBCO-PPW26.27 code and transonic winglet studies. The fourth line gave the 
number of airfoils on the base wing while the next number to the right gave the number of 
points used to describe each airfoil. After the fourth line, the data for the first airfoil, in 
this case the root airfoil, was given. The information of the fifth line was the leading edge 
location, the span location of the airfoil, the trailing edge location, the geometric twist of the 
airfoil in degrees and whether the airfoil shape was the same as the last airfoil. Here, a 
zero indicated that the airfoil shape would be the same as the last airfoil shape read by the 
program. A number one indicated that a new shape was to be read into the program. In 
the event of a new airfoil description, the next eight lines would give the chord position 
of the upper airfoil and lower airfoil points in terms of fraction of chord, x/c. The next 
two blocks of eight lines gave the upper airfoil position in fraction of chord and the 
lower airfoil position in fraction of chord. This was the input format used for the base 
wing. 

For the description of the juncture between the wing and winglet, an integer was 
specified after the last base wing airfoil. This integer gave the number of airfoils used in 
forming the juncture. A format similar to that used for the base wing was used to describe 
these juncture airfoils. A typical block of data to describe a juncture airfoil gave a series of 
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four real numbers that told the program that the airfoil was part of the juncture, the 
number of points per airfoil, an unused value, and the dihedral of the airfoil as rotated 
about the axis through the base wing's span location and averaged trailing edge 
location. Once again, the next three blocks of data were the fractional chord locations, 
upper airfoil points, and the lower airfoil points in terms of fraction of chord. 

After the juncture was defined, the winglets were typically defined as listed in the input 
file. Three lines were used, where one was a comment line, the next was a space line, and 
the last line gave relevant winglet information. This information was the number of 
airfoils used to define the winglet, the number of points per airfoil, an unused number, 
and the dihedral of the winglet to be studied. The file then listed the leading edge of the 
airfoil, the span location of the airfoil before being rotated to the dihedral angle, the 
trailing edge location, the geometric twist to be applied, and whether the airfoil was a 
new shape or not. Again, the coordinates of the airfoil were given in terms of chord 
fractions. This file was typical of the input used for the NACA 1402 base wing with a 
winglet. 

C.2 Cross Sectional Cut Program 

Program KEENANB was the program used to generate the cross sectional cuts 
perpendicular to the axial direction of the wing. The fortran code began by initializing 
relevant variables and then proceeded by beginning to read the input file. In this 
program, one airfoil geometry was read at a time. The coordinates of the wing were 
found from the twist and the chord fractions, x/c and z/c. The actual location of the 
leading and trailing edges were also necessary to determine the actual chord length. All 
computed coordinates were saved in arrays as each airfoil was transformed to dimensional 
values. Another section of the program calculated the coordinates for the winglet as 
being in the plane of the wing. Once these coordinates were found, they were rotated 
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about an axis passing through the base wing span location and the averaged trailing edge 
of the span airfoil. 

After transforming the wing and winglet into actual coordinates, the program began 
dealing with winglet geometries and geometrical shifts. A geometrical shift was used to 
minimize the effect of the winglet and the juncture coming inboard when rotated upwards. 
This prevented the winglet geometries from having a "hooked" shape in the cross flow 
planes. The shift was enforced by using the dihedral angles between airfoils after they had 
rotated out of the wing plane. This shift was performed by moving the outboard airfoil 
further outboard. To determine where to shift the airfoil to, either the leading or trailing 
edge points of the airfoils were used to form the dihedral angle with the horizontal. Also, 
the geometric twist was considered in the geometric shift. If the twist would cause the 
winglet to be moved inboard, then the dihedral angle would be used at the leading edge to 
shift the outer airfoils. 

Upon calculating the wing or wing-winglet geometric coordinates, the process of 
creating cross sectional cuts began. The program had previously found the maximum 
distance in the axial direction which was taken in the direction from the leading edge to 
the body’s trailing edge. With this maximum distance and a number of cuts specified in 
the program, KEENANB then made the cuts at a uniform incremental distance by using 
the maximum distance divided by the number of cuts as the incremental distance. At 
each cross sectional cut, a first order interpolation was used to calculate the points on 
the cut. The interpolation began on the inner most airfoil's upper surface and then 
proceeded to calculate points between that airfoil and the next outboard airfoil, due to the 
swept constant x/c lines crossing the cut. When the interpolation was completed between 
these airfoils, the next outboard airfoil was interpolated on. This process continued 
outboard until encountering the leading edge, the wing tip, or the winglet tip. After the 
upper surface of the cut was determined, a similar process of moving from airfoil, between 
airfoils and to the next airfoil was used on the lower surface. However, the span 
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marching proceeded by moving from the outboard section of the geometry towards the 
base wing root chord. As each cut was calculated, the resulting coordinates were used to 
create a file that was to be used by the programs listed in Appendices D or F. The 
present program's execution was completed when the trailing edge cross sectional cut was 
produced. 

C.3 The Output File of the Program 

The format of the output file generated consisted of the axial location for the cut, the 
spanwise locations of the points, and the vertical locations of the wing surface coordinates 
calculated. A typical example of an output file has been given on page 296. This particular 
file was the output for the input file listed previously. 
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72 . 
80 . 
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0 
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000000 
.000000 
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.220000 
.360000 
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,640000 
.780000 
,920000 
000000 
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000000 
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001364 
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000000 
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000000 
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.0 0.0 

4 . 1 . 

0 .000000100 
.001000 
.100000 
.240000 
. 380000 
.520000 
.660000 
.800000 
.940000 
.000995 
.012192 
.018258 
.019760 
.018207 
.014860 
.009930 
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. 000995 
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.000337 
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00 . , SWEEP - 6 5 DEG , CHORDT - 20 . , 
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. 260000 
. 400000 
.540000 
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.820000 
.960000 
.001423 
.013424 
.018716 
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000000 


0 . 
0 . 
0 . 
0 . 
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.019089 
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.001328 
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>* 4476 

1 . 000000 
.020000 
.160000 
. 300000 
.440000 
. 580000 
.720000 
.860000 
1.000000 
.004926 
.015477 
.019378 
.019340 
.016975 
.012936 
. 007349 
.000210 
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-.000629 - 

. 000571 
. 001227 
.001379 
. 000899 
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0.000000 
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.040000 
.180000 
.320000 
, 460000 
,600000 
,740000 
880000 

007297 

016325 

019588 

019114 

016496 

012231 

006426 
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001350 

000777 
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. 060000 
. 200000 
. 340000 
. 480000 
.6 2 0000 
. 760000 
.900000 

. 009187 
.017067 
.019720 
. 018849 
.015984 
.011495 
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. 00361 3 
. 002063 
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.000796 
,001330 
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81.884601 
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000000 

. 000000 
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.000000 

.001000 

002000 

.003000 

. 020000 

.040000 

.060000 

.080000 

.100000 

120000 

. 140000 

.160000 

. 180000 

.200000 

.220000 

.240000 

260000 

.280000 

. 300000 

.320000 

. 340000 

. 360000 

. 380000 

400000 

.420000 

.440000 

. 460000 

. 480000 

. 500000 

. 520000 

540000 

. 560000 

.580000 

. 600000 

. 620000 

.640000 

.660000 

680000 

. 700000 

.720000 

. 740000 

. 760000 

.780000 

.800000 

820000 

. 840000 

.860000 

. 880000 

.900000 

.920000 

.940000 

960000 

. 980000 

1.000000 



.000000 

. 001095 

001561 

.001917 

.005269 

. 007701 

.009608 

.011209 

.012591 

013798 

. 014858 

.015788 

. 016601 

. 017307 

.017915 

.018428 

018852 

.019192 

. 019451 

.019633 

.0197 40 

.019774 

.019738 

019634 

. 01947 4 

. 019273 

.019034 
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017705 
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.01 3 4 46 
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• 0 1 0 5 8 1 
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008972 
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.003425 

002393 
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.000235 



.000000 

-.000956 - 

001346 

-.001623 
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- . 004319 

-.004685 

-.004833 

-.004849 - 

004779 

-.004648 

-.004475 

- .004276 

-.004055 

-.003824 

-.003588 - 

003350 

-.003118 

-.002892 

-.002676 

-.002474 
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-.002287 - 

002118 

001969 

-.001829 

-.001687 

-.001545 

-.001405 

-.001267 - 

001131 -. 

001001 

-.000875 

-.000755 

-.000642 

-.000536 

-.000439 

000348 - 

000267 

-.000195 

-.000131 

-.000078 

- .000034 

.000000 

000025 

000040 

. 000045 

.000041 

.000027 

. 000004 

-.000027 - 

000067 - 
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-.000171 

-.000235 
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83.769202 37 

864182100 

000000 

.000000 

1.000000 



. 000000 

001000 

,002000 

.003000 

.020000 

.040000 

.060000 

. 080000 

100000 

,120000 

. 140000 

. 160000 

.180000 

. 200000 

.220000 

240000 

, 260000 

.280000 

. 300000 

. 320000 

. 340000 

. 360000 

380000 

. 400000 

.420000 

.440000 

. 460000 

.480000 

. 500000 

520000 
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. 560000 

.580000 

.600000 

.620000 

.640000 

, 660000 

.680000 
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.720000 

.740000 

.760000 

.780000 

,800000 

.820000 

.840000 

.860000 

.880000 
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.920000 

,940000 

.960000 

,980000 

1.000000 



. 000000 

,001218 

.001731 

.002122 

.005692 

.008199 

.010127 

.011722 

.013083 

.014259 

.015282 

.016171 

.016941 

.017603 

.018167 

.018636 

.019019 

.019320 

.019542 

.019689 

.019765 

.019771 

.019711 

.019586 

.019409 

.019191 

.018935 

.018642 

.018312 

.017948 

.017549 

.017118 

.016655 

.016161 

.015637 

.015082 

.014498 

.013886 

.013245 

.012576 

.011879 

.011154 

.010401 

.009621 
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.007978 
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.006223 
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.004354 

.003377 

.002369 

.001332 
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-.006006 

-.006385 - 
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-.006510 
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-.005495 

-.005311 
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-.004470 
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-.003935 - 

.003751 - 

.003567 

-.003382 

-.003198 

-.003016 

-.002836 

-.002660 - 

.002486 - 
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-.002153 

-.001992 

-.001838 

- .001688 

-.001543 - 

.001404 - 

. 001270 

-.001140 

-.001016 

-.000897 

-.000783 

-.000672 - 
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. 00046 3 

-.000362 

-.000265 
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. 000000 
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.120000 

.140000 
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. 200000 

.220000 

.240000 

.260000 

.280000 

. 300000 

. 320000 

. 340000 

. 360000 

. 380000 

. 400000 

. 420000 

.440000 

.460000 

.480000 

. 500000 

.520000 

.540000 

. 560000 

. 580000 

.600000 

.620000 

.640000 

.660000 

.680000 

. 700000 

. 720000 

. 740000 

.760000 

.780000 

.800000 

.820000 

.840000 

.860000 

.880000 

.900000 

.920000 

.940000 

.960000 

.980000 

1.000000 



.000000 

.001374 

.001946 

.002381 

.006227 

.008828 

.010782 

.012370 

.013704 

.014841 

.015817 

.016655 

. 017 37 1 

.017977 

.018485 

.018900 

.019230 

.019481 

.019656 

.019760 

.019796 

.019767 

.019676 

.019526 

.019327 

.019087 

.018810 

.018497 

.018148 

.017767 

.017352 

.016907 

.016432 

.015928 

.015395 

.014834 

.014246 

.013632 

.012991 

.012325 

.011633 

.010916 

.010173 

.009405 

. 008612 

. 007794 

.006950 

.006081 

. 005186 

.004264 

.003315 

.002339 

. 001 335 

.000303 



.000000 

-.001286 

-.001810 

-.002196 

-.005117 

-.006693 

-.007673 

-.008344 - 

-.008815 

-.009146 

-.009371 

-.009512 

-.009589 

- .009611 

-.009589 ■ 

-.009531 

-.009443 

-.009332 

-.009201 

-.009054 

- . 008894 

-.008726 

-.008552 

-.008374 

-.008187 

-.007984 

-.007768 

- . 007542 

-.007305 

-.007059 

-.006806 

-.006547 

-.006282 

-.006013 

-. 005740 

-.005465 

-.005186 

-.004906 

-.004625 

-.004342 

- .004060 

- . 003776 

-.003492 

-.003208 

-.002923 

-.002637 

-.002351 

-.002064 

- . 001776 

-.001487 

-.001195 

-.000901 

-.000603 

-.000303 
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.000000 
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.020000 
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.120000 
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.180000 
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.220000 

.240000 

.260000 

.280000 
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. 320000 

.340000 

. 360000 

.380000 

.400000 

. 420000 

. 440000 

.460000 

. 480000 

. 500000 

.520000 

.540000 

. 560000 

.580000 

.600000 

.620000 

.640000 

.660000 

.680000 

.700000 

.720000 

.740000 

.760000 

. 780000 

.800000 

.820000 

.840000 

.860000 

.880000 

.900000 
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.920000 

.940000 

.960000 

.980000 

1.000000 



. 000000 

.001577 

. 002226 

.002718 

.006922 

. 009648 

.011635 

.013213 

.014512 

. 015599 

.016514 

.017285 

. 017930 

.018464 

0 1 8 9 0 0 

.019244 

.019506 

. 019691 

.019804 

.019851 

.019836 

.019761 

.019632 

.019449 

.019220 

.018952 

.018648 

. 018309 

.017936 

.017531 

.017096 

.016633 

.016142 

.015623 

. 015080 

.014511 

.013918 

.013301 

.012661 

.011998 

.011313 

.010605 

. 009876 

. 009125 

. 008351 

.007555 

.006737 

. 005896 

.005033 

. 00 414 6 

. 003235 

.002300 

. 001 3 39 

.000353 



.000000 

-.001526 

-.002148 

-.002612 

-.006284 

-.008419 

- . 009846 

- . 010896 

-.011698 

-.012321 

-.012804 

-.013173 

-.013451 

-.013640 

- . 013779 

-.013851 

-.013872 

- .013849 

- .013786 

-.013689 

-.013561 

-.013406 

- .013228 

-.013029 

-.012807 

-.012561 

-.012292 

-. 012003 

-.011694 

-.011368 

-.011026 

-.010669 

-.010299 

-.009916 

-.009523 

-.009118 

-.008702 

-.008278 

-.007845 

-.007403 

-.006954 

- . 006496 

-.006030 

-.005557 

-.005076 

-.004587 

-.004090 

-.003584 

- . 003071 

- . 002547 

-.002014 

-.001472 

-.000918 

-.000353 
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89.423006 

38.703536100.000000 

-2 .000000 

1.000000 



.000000 

.001000 

. 002000 

. 003000 

.020000 

.040000 

. 060000 

.080000 

.100000 

.120000 

.140000 

.160000 

. 180000 

.200000 

.220000 

.240000 

. 260000 

. 280000 

.300000 

. 320000 

. 3 40000 

. 360000 

. 380000 

.400000 

.420000 

. 440000 

.460000 

.480000 

. 500000 

.520000 

.540000 

. 560000 

. 580000 

.600000 

. 620000 

.640000 

.660000 

.680000 

.700000 

.720000 

.740000 

. 760000 

.780000 

.800000 

.820000 

.840000 

.860000 

.080000 

. 900000 

.920000 

.940000 

. 960000 

.980000 

1.000000 



. 000000 

.001852 

.002605 

.003176 

.007866 

.010759 

.012792 

.014357 

.015609 

. 016627 

. 017460 

.018139 

.018689 

.019125 

.019462 

.019710 

.019079 

.019975 

.020006 

.019976 

.019891 

.019754 

.019571 

.019343 

.019075 

.018769 

.018427 

. 018053 

.017647 

.017212 

. 016749 

.016261 

. 015748 

.015211 

.014653 

.014073 

.013472 

.012852 

. 012213 

.011555 

.010879 

.010185 

.009473 

. 008744 

.007996 

.007231 

. 006448 

.005646 

.004826 

.003986 

.003126 

.002246 

.001344 

. 000420 



.000000 

-.001852 

-.002605 

-.003176 

-.007866 

-.010759 

- . 01 2792 

-.014357 

-.015609 

-.016627 

-.017460 

-.018139 

-.018689 

- . 019125 

-.019462 

-.019710 

-.019079 

-.019975 

-.020006 

-.019976 

- .019891 

-.019754 

-.019571 

-.019343 

-.019075 

-.018769 

-.018427 

- . 018053 

-.017647 

-.017212 

-.016749 

-.016261 

-.015748 

-.015211 

- . 014653 

-.014073 

-.013472 

-.012852 

-.012213 

-.011555 

-.010879 

- . 010185 

-.009473 

-.008744 

-.007996 

-.007231 

-.006448 

-.005646 

-. 004826 

-.003986 

-.003126 

-.002246 

-.001344 

-.000420 



91.846011 

40.102459100. 000000 

-2 . 000000 

0.000000 



94.269017 

41 . 501382100.000000 

-2.000000 

0.000000 



96.692023 

42 . 900305100 . 000000 

-2.000000 

0.000000 
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PROGRM KEENNB ( OUTPUT , TPE5 , TPE6-OUTPUT ) 
********************************** 

CHANGING FORM BOPPE STRUCTURE TO CROSS- 
SECTIONAL GEOMETRIC CUTS PERPENDICULAR 
TO THE FREESTREAM VECTOR 
********************************** 

REAL RU, RL, BS , TU , TL , TWU , TWL , ALFA, DI , ZMAX 
REAL Yl,Y2,Xl,XO,DX,XMAX,CUTS 
REAL SPAN IN , WWLTR , SLOPE , AS PAN , WLENGTH 
INTEGER NTAB , I ERR , IPT, IORDER, IZMAX 
INTEGER WAF,TF,MD,MDD,Kl,K2 
DIMENSION D ( 2 0 ) , DH ( 50 ) , M ( 1 0 0 ) , AL ( 50 ) 

DIMENSION YDUMU (100), YDUML (100) 

DIMENSION ZDUMU( 100 ) , ZDUML( 100 ) 

DIMENSION ZDUMMU ( 100) ,ZDUMML(100) ,XDUMM( 100 ) 
DIMENSION XDUMU( 100 ) ,XDUML( 100) 

DIMENSION XU (60, 60) ,XL(60,60),YU(60,60) 
DIMENSION YL( 6 0,60) ,ZU( 60,60 ) ,ZL( 60, 60) 
DIMENSION XX(60),YY(60,1),ZO(1),YO(1),ZZ(60,1) 
PI-4 . * ATAN ( 1 . ) 

20 FORMAT ( 7 F 1 0 . 6 ) 

30 FORMAT (3Fl0.5,2Il) 

31 FORMAT! 3 Fl 5. 6) 

39 FORMAT ( I 2 ) 

40 FORMAT! / ) 

SPAN-0 . 0 
DI-0.0 
NUM-0 
IZMAX-0 
XAVl-0 . 0 
XAV 2-0.0 
YAV1-0.0 
YAV2-0 . 0 
ZAV1-0 . 0 
ZAV2-0 . 0 
NWWJF-0 
Y2-0.0 
K-0 

ASPAN-0 . 0 
WLENGTH-0 . 0 
WWLTR-0 . 0 
SPANIN-0 . 0 

Q ********************** 

C READING IN THE NUMBERS 

c ********************** 

READ! 5,40) 

READ! 5,20)(D(J),J“1,3) 

READ (5,20)(D(J) , J- 4 , 1 0 ) 

D2-D( 2) 

WAF-IFIX( D( 4 ) ) 

LOOP-IFIX! D( 5 ) ) 

D( 7 ) -0 . 0 

75 READ! 5,20) (D(J) ,J-11 ,15) 

D15-IFIX! D ( 1 5 ) ) 

80 READ(5,20) (XDUMM! J) ,J-l,LOOP) 

READ! 5,20) (ZDUMMU! J ) , J-l.LOOP) 
READ(5,20)(ZDUMML(J) , J-l , LOOP ) 

60 K-K+l 

DH(K)-D(7)*PI/180. 

AL(K)-D(14)*PI/180.0 
CHORD-D! 13 )-D( 11 ) 

DO 10 1-1 , LOOP 
M ( I ) ”0 
10 CONTINUE 
M( 1 ) -1 

IF(K.EQ.l) M ( 1 ) - 2 
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o o o n o »-ooo ui non 


************************* 

COMPUTING COORDS FOR WING 
************************* 

ALFA-D( 14 ) *PI/1 8 0 . 0 

IF( D2 . EQ. 1 . AND . K . GT . WAF ) GO TO 110 

DO 50 1-1 , LOOP 

YDUMU ( I )-D( 12 ) 

YDUML ( I )-D( 12 ) 

BS-(CHORD)-CHORD*XDUMM( I ) 

I F( BS . LE . 0 . ) THEN 
XDUMU ( I ) -D ( 1 3 ) 

XDUML ( I )-D( 13 ) 

Z DUMU ( I ) -Z DUMMU ( I ) *CHORD 
ZDUML ( I )-ZDUMML( I ) ‘CHORD 
GO TO 50 
ENDIF 

RU»( BS“2 . + ( CHORD *Z DUMMU ( I))“2.)“0.5 
RL-(BS“2. + (CH0RD*ZDUMML( I))“2.)“0.5 
TU**ATAN ( CHORD* Z DUMMU ( I )/BS ) 

TL-ATAN ( CHORD *ZDUMML ( I )/BS ) 

ZDUMU ( I ) -RU* S I N ( ALFA+TU ) 

ZDUML ( I )-RL* SIN (ALFA+TL) 

XDUMU ( I )-D( 11 ) +CHORD-RU*COS( ALFA+TU) 

XDUML ( I )-D( 11 )+CHORD-RL*COS( ALFA+TL) 

0 CONTINUE 

IF(K.EQ.WAF) THEN 

ZAVE-( ZDUMU ( LOOP) +ZDUML( LOOP ) )/2 . 0 
ENDIF 
GO TO 125 

**************************** 

COMPUTING COORDS FOR WINGLET 
**************************** 

10 DI-D( 7 ) *PI/180 . 

DO 120 I-l.LOOP 

BS-( CHORD ) -CHORD*XDUMM( I ) 

I F ( BS . LE . 0 . (THEN 
XDUMU ( I )-D( 13 ) 

XDUML ( I )-D( 13 ) 

ZDUMU ( I ) -ZDUMMU ( I ) ‘CHORD 
ZDUML( I ) -ZDUMML ( I ) ‘CHORD 
GO TO 250 
ENDIF 

RU«( BS“2 . + ( CHORD *ZDUMMU( I))“2.)“0.5 
RL-( BS“2 . + ( CHORD*ZDUMML( I) )“2.)“0.5 
TU-ATAN ( CHORD* Z DUMMU ( I )/BS ) 

TL-ATAN ( CHORD* ZDUMML ( I )/BS ) 

ZDUMU ( I )-RU*SIN( ALFA+TU) 

ZDUML ( I )-RL* SIN (ALFA+TL) 

XDUMU ( I ) -D ( 11 ) + CHORD- RU* COS ( ALFA+TU ) 

XDUML ( I )-D( 11 )+CHORD-RL* COS (ALFA+TL) 
********************************************* 

BECAUSE OF USE OF THE SINE FUNCTION CARE MUST 
BE TAKEN TO SEE IF RESULTS GIVE THE CORRECT 
QUADRANT OR SIGN FOR THE WINGLET ROTATION 
********************************************* 

250 I F ( SPAN . EQ . D ( 1 2 ) ) THEN 

I F ( ZDUMU ( I ) . LT. 0 . 0 ) THEN 
TWU--PI/2 . 

ELSE 

TWU-PI/2 . 

ENDIF 

I F ( ZDUML ( I ) . LT. 0 . ) THEN 
TWL--PI/2 . 

ELSE 

TWL-PI/2 . 

ENDIF 
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GO TO 115 
ENDIF 

TWU-ATAN ( ( ZDUMU ( I )-ZAVE )/( D( 12 )-SPAN) ) 

TWL-ATANl ( ZDUML ( I )-ZAVE)/(D( 1 2 ) -SPAN ) ) 

115 RU- ( ( ZDUMU ( I ) -ZAVE ) * * 2 . + ( D( 12 ) -SPAN) * *2 . ) **0. 5 
RL-( ( ZDUML ( I ) -ZAVE) * *2 . + ( D( 1 2 ) -SPAN ) * * 2 . ) **0 . 5 
ZDUMU ( I )-RU*SIN( DI+TWU ) +ZAVE 
ZDUML ( I )-RL*SIN( DI+TWL)+ZAVE 
YDUMU ( I ) -SPAN+RU*COS ( DI+TWU ) 

YDUML ( I ) -S PAN+ RL * COS ( D I +TWL ) 

120 CONTINUE 

125 CONTINUE 

£ *************************** 

C COORDS FOR WING AND WINGLET 

Q *************************** 

DO 5 I-l , LOOP 
XU ( K , I ) -XDUMU ( I ) 

XL( K, I ) -XDUML( I ) 

YU( K, I ) -YDUMU ( I ) 

YL( K, I ) - YDUML ( I ) 

ZU( K, I ) -ZDUMU ( I ) 

ZL ( K , I ) -ZDUML ( I ) 

C WRITE (6,20) XU( K, I ) , YU(K, I ) ,ZU( K, I ) ,XL{K, I) , YL(K, I ) , ZL( K, I ) 

5 CONTINUE 

DY-0 . 0 

IF(DI .EQ.O.O.OR.K.LE. WAF ) GOTO 1011 
XAV1-0 . 5 * ( XU ( K , LOOP ) +XL ( K, LOOP) ) 
ZAV1-0.5*(ZU(K,LOOP)+ZL(K,LOOP) ) 

ZAV2-0 . 5* ( ZU( K-l , LOOP ) +ZL ( K-l , LOOP ) ) 

YAV1 - 0 . 5 * ( YU ( K , LOOP ) + YL ( K , LOOP ) ) 

YAV2-0 . 5* ( YU( K-l , LOOP ) +YL ( K-l , LOOP ) ) 

AL ( K ) -ATAN ( YAVl-YU ( K , 1 ) ) / ( XAVl-XU( K , 1 ) ) 

IF( AL( K) .LE. 0 .0 .AND. DH( K) ,GE. 0.0 ) THEN 

IF( ZAVl .GT.ZAV2 ) THEN 

Y2- ( ZAV1-ZAV2 ) /TAN ( DI )+YAV2 

ELSE 

Y2- ( ZAV2-ZAV1 ) /TAN ( DI )+YAV2 
ENDIF 

DY-Y2-YAV1 
GOTO 1009 
ENDIF 

I F ( AL ( K ) . GE .0.0. AND . DH ( K ) .GE.0.0) THEN 
I F ( ZU( K , 1 ) . GT . ZU ( K-l , 1 ) ) THEN 
Y2-(ZU(K,1)-ZU(K-1,1 ) ) /TAN (DI)+YU(K-1,1) 

ELSE 

Y2-(ZU( K-l, 1 )-ZU(K, 1 ) ) /TAN ( DI ) + YU ( K-l , 1 ) 

ENDIF 

DY-Y2- YU ( K , 1 ) 

GOTO 1009 
ENDIF 

I F ( AL( K ) . LE . 0 . 0 .AND . DH( K ) . LT . 0 . 0 ) THEN 

I F ( ZAVl . LT . ZAV2 ) THEN 

Y2- ( ZAV1-ZAV2 ) /TAN ( DI )+YAV2 

ELSE 

Y2- ( ZAV2-ZAV1 ) /TAN ( DI ) +YAV2 
ENDIF 

DY-Y2-YAV1 

ELSE 

I F ( ZU { K , 1 ) . LT . ZU ( K-l , 1 ) ) THEN 
Y2-(ZU(K,1)-ZU(K-1,1) ) /TAN (DI)-*-YU(K— 1,1) 

ELSE 

Y2-(ZU(K-1,1)-ZU(K,1) ) /TAN ( DI ) + YU ( K-l , 1 ) 

ENDIF 

DY-Y2-YU ( K , 1 ) 

ENDIF 

1009 DO 1010 I » 1 , LOOP 
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ZU( K, J )-ZU( K, J )-RU*SIN( ALFA+TU ) 

1040 ZL(K, J)-ZL(K, J)-RL*S IN (ALFA+TL) 

ENDIF 

Yl-YU(K+l,l)+(ZU(K,l)-ZU(K+l,l) ) / ( TAN ( DH ( K ) ) ) 

RU-( ( XU ( K , 1 ) -XAVl ) * * 2 . + ( YU ( K , 1 ) — YAVl ) * * 2 . )**.5 
Xl-XAVl — ( RU*RU-( Yl-YAVl ) **2 . ) ** . 5 
ALFA-ATAN ( ( Yl-YAVl )/( XAVl-Xl ) ) 

DO 1030 J-l, LOOP-1 

TU-ATAN ( ( YU ( K , J ) -YAVl ) / ( XAV 1 -XU ( K , J ) ) ) 

TL-ATAN ( ( YL ( K , J ) -YAVl )/ ( XAVl -XL ( K , J ) ) ) 

RU-( ( YU(K,J)-YAVl)**2.+(XU(K,J)-XAVl)**2. ) * * 0 - 5 
RL-( ( Y L ( K , J ) - Y AV 1)**2.+(XL(K,J)- XAV 1 ) * * 2 . )**0.5 
YU( K, J (-YAV1+RU *SIN( ALFA+TU) 

XU( K , J ) -XAVl-RU* COS (ALFA+TU ) 

YL ( K , J ) - YAVl +RL*S IN ( ALFA+TL ) 

1030 XL ( K , J ) -XAVl - RL*COS(ALFA+TL) 

ELSE 

DI-ATAN ( ( ZAV2-ZAV1 )/( YAV2-YAV1 ) ) 

C I F( DI . GE . DH( K ) ) GOTO 1020 

Y 1 - YAV2+ ( ZAVl -ZAV2 )/ ( TAN ( DH ( K ) ) ) 

RU-( ( XU ( K , 1 ) -XAVl )**2.+(YU(K,l)- YAVl ) **2. )** .5 
Xl-XU ( K , 1 ) + ( RU*RU- ( Yl- YU ( K , 1 ) )**2. )**.5 
D X " XAV 1 - X 1 

ALFA-ATAN ( ( Yl -YU ( K , 1 ))/( Xl-XU ( K , 1 ) ) ) 

DO 3020 J-LOOP ,2,-1 

TU-ATAN ( ( YU ( K , J ) -YU ( K , 1 ) ) / ( XU ( K , J ) -XU ( K , 1 ) ) ) 

TL-ATAN ( ( YL ( K , J ) -YL ( K , 1 ) ) / ( XL ( K , J ) -XL ( K , 1 ) ) ) 

RU-( (YU(K,J)-YU(K,1 ) )**2.+(XU(K,J) -XU (K,l))**2.)**0.5 

RL« ( ( YL( K , J )— YL( K , 1 ) ) * *2 . + ( XL ( K , J ) -XL ( K , 1 ) ) * *2 . ) * * 0 . 5 
YU( K,J)-YU( K, 1 )+RU*SIN( ALFA+TU) 

I F ( J . EQ . LOOP ) GOTO 3021 
XU ( K , J ) -XU ( K , 1 )+RU*COS( ALFA+TU )+DX 
XL ( K, J )-XL( K,l)+RL*COS( ALFA+TL )+DX 
3021 CONTINUE 

3020 YL ( K , J ) - YL ( K, 1 )+RL*S IN (ALFA+TL) 

ENDIF 

ELSE 

I F ( AL ( WAF+NWWJF+1 ) . LT . 0 . 0 ) THEN 

DI -ATAN ( (ZU(K+1,1)-ZU(K,1) ) /( YU ( K+l , 1 ) - YU ( K , 1 ) ) ) 

C IF(DI .LE.DH(K) ) GOTO 1020 

IF( ZU( K, 1 ) .LT.ZU( K+l , 1 ) (THEN 
DZ-ZU( K , 1 )-ZU( K+l , 1 ) 

DZ — 1 .05* DZ 

UL- ( ( XAVl -XU ( K , 1 ) ) * * 2 . 0+ ( ZAVl-ZU ( K , 1 ) )**2. )**0.5 
ALFA-ATAN (DZ/UL) 

DO 4040 J-l, LOOP-1 

RU-( ( XAVl-XU ( K , J ) )** 2. + ( ZAVl-ZU (K, J) )**2. )**.5 
RL- ( ( XAVl -XL ( K , J ) ) * * 2 . + ( ZAV1-ZL( K , J ) )**2. )**.S 
TU-ATAN ( (ZAVl-ZUU, J) ) / ( XAVl -XU ( K , J ) ) ) 

TL-ATAN ( ( ZAVl-ZU K , J ) )/( XAVl -XL ( K , J ) ) ) 

XU( K , J ) -XAVl-RU* COS ( ALFA+TU ) 

XL( K, J) -XAVl-RL* COS (ALFA+TL) 

ZU(K,J)-ZU(K,J)-RU* SIN (ALFA+TU) 

4040 Z L ( K , J ) -ZL( K, J )-RL*S IN (ALFA+TL ) 

ENDIF 

Yl- YU ( K + l , 1 ) + ( ZU( K, 1 )— ZU( K+l , 1 ) ) / ( TAN ( DH ( K ) ) ) 

RU-( ( XU ( K , 1 ) -XAVl )**2. + (YU(K,l) - YAV 1 ) * * 2 . )**.5 
Xl-XAVl -( RU*RU-( Yl-YAVl ) * *2 . ) ** . 5 
ALFA-ATAN ( ( Y 1 -YAVl )/( XAVl -XI ) ) 

DO 4030 J-l, LOOP-1 

TU-ATAN ( ( YU ( K , J ) -YAVl )/( XAVl -XU ( K, J ) ) ) 

TL-ATAN ( ( YL ( K , J ) -YAVl ) / ( XAVl -XL ( K , J ) ) ) 

RU- ( ( YU ( K , J ) -YAVl ) * * 2 . + ( XU ( K , J ) -XAVl ) * * 2 . ) * *0 . 5 
RL- ( (YL(K,J)-YAV1)**2.+(XL(K,J)-XAV1)**2. )**0.5 
YU( K, J )-YAVl +RU*S IN (ALFA+TU ) 

XU( K, J) -XAVl-RU* COS (ALFA+TU) 
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non 


1010 

c 

c 

c 

1011 


325 


C 


YU( K, I ) -YU ( K , I } + DY 
YL( K f I ) - YL ( K , I ) + DY 

WR I TE (6,20) XU(K,I),YU(K,I ) ,ZU(K, I ) 
CONTINUE 


,XL(K,I),YL(K,I),ZL<K,I) 


LOGICAL THINKING STATEMENTS 
*************************** 
I F ( 02 . EQ . 0 . 0 ) THEN 
IF(K.GE.WAF) GOTO 325 
READ (5,20) (D{ J) , J-11,15) 

IF( D( 15 ) . EQ. 1 . 0 ) GOTO 80 

GOTO 60 

ELSE 


IF(K.LT.WAF) THEN 

READ (5,20) (D(J)’ f J-11,15) 

IF( D( 15 ) . EQ. 1 . 0 ) GOTO 80 

GOTO 60 

ENDIF 

I F ( NWWJF . EQ . 0 ) THEN 
SPAN-D ( 12 ) 

READ( 5,39) NWWJF 
ENDIF 


I F(K.LT. WAF+NWWJF) THEN 
READ(5,20) (D(J),J-4,7) 
READ( 5,20) (D(J), J-11,15) 
I F ( D ( 1 5 ) . EQ .1.0) GOTO 80 
GOTO 6 0 
ENDIF 


I F ( K . EQ . WAF+NWWJF ) THEN 
READ( 5,40) 

READ( 5,20) (D(J),J-4,7) 
NUM- 1 FIX ( D( 4 ) ) 

ENDIF 


I F ( K . GE . WAF+NUM+ NWWJF ) GOTO 325 
READ( 5,20) (D( J) , J-11,15) 
IF(D(15).EQ.1.0) GOTO 80 
GOTO 6 0 
ENDIF 


***************** 


* * * * 


SHIFTING AIFOILS IN JUNCTURE AND ON WINGLET 
************************** ttt#4#4AA4 ^ Alt 


I F ( D2 . EQ . 0 ) THEN 

NUM-0 

ELSE 

DO 1020 K- WAF+NWWJF , WAF+1 , -1 
XAV1-0 . 5* ( XU( K , LOOP ) +XL( K, LOOP ) ) 
YAV1-0 . 5* ( YU( K, LOOP) + YL( K, LOOP) ) 
ZAVl-0 . 5* ( ZU( K , LOOP )+ZL( K , LOOP ) ) 
YAV2-0 . 5* ( YU( K + l , LOOP ) +YL( K+l , LOOP ) ) 
ZAV2-0 . 5* ( ZU( K + l , LOOP ) +ZL( K + l , LOOP ) ) 
I F( DH ( WAF+NWWJF ) . GE .0.0) THEN 
I F( AL ( WAF+NWWJF+1 ) . LT . 0 . 0 ) THEN 


DI-ATAN( (ZU(K + 1,1)-ZU(K,1) )/(YU(K + l,l)-YU(K,l) ) ) 
IF(DI .GE.DH(K) ) GOTO 1020 


IF(ZU(K,1) .GT.ZU(K+1,1) )THEN 
DZ-ZU ( K , 1 )-ZU( K+l , 1 ) 

DZ-1 . 05*DZ 


UL- ( ( XAV1-XU (K,l))**2.0+( ZAV1-ZU (K,l))**2.)**0 5 
ALFA-ATAN ( DZ/UL ) 

DO 1040 J-l, LOOP-1 

RU- ( ( XAVl-XU (K,J) )**2. + ( ZAV1 -ZU( K,J) )+ + 2. )**.5 
RL-( ( XAVl-XL( K , J ) ) * * 2 . + ( ZAV1-ZL ( K , J ) ) **2 . ) + * 5 
TU-ATAN ( ( ZAV1-ZU ( K , J ) ) /( XAVl -XU ( K , J ) ) ) 

TL-ATAN ( ( ZAVl-ZL ( K , J ) ) /( XAV1 -XL ( K , J ) ) ) 

XU ( K , J ) -XAVl-RU+COS ( ALFA+TU ) 

XL ( K , J ) -XAVl -RL*COS(ALFA+TL) 
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YL(K,J)-YAV1+RL*SIN( ALFA+TL) 

4030 XL ( K , J ) -XAVl-RL*COS ( ALFA+TL ) 

ELSE 

DI-ATAN( ( ZAV2-ZAV1 )/( YAV2-YAV1 ) ) 

C I F ( DI . LE . DH ( K ) ) GOTO 1020 

Yl-YAV2+( ZAV1-ZAV2 ) / ( TAN ( DH ( K ) ) ) 

RU-( ( XU ( K , 1 ) -XAVl ) * * 2 . + ( YU ( K , 1 ) -YAVl ) **2 . ) ** . 5 
Xl-XU( K, 1 )+( RU*RU-( Y1-YU( K,l))**2.)**.5 
DX-XAV1-X1 

ALFA-ATAN< ( Yl-YU( K , 1 ) )/( Xl-XU ( K , 1 ) ) ) 

DO 4020 J-LOOP ,2,-1 

TU-ATAN ( ( YU ( K , J ) -YU ( K , 1 ) ) / ( XU ( K , J ) -XU ( K , 1 ) ) ) 

TL-ATAN( (YL(K,J)-YL( K , 1 ) )/(XL(K,J)-XL(K,l ) ) ) 

RU-( ( YU(K, J)-YU(K,1) )**2.+(XU(K, J)-XU(K.l) )**2. )**0.5 
RL-( (YL(K,J)-YL(K,1) ) * *2 . + ( XL ( K, J ) —XL < K, 1 ))**2.)**0.5 
YU (K,J)-YU(K,1)+RU*SIN( ALFA+TU ) 

I F ( J . EQ . LOOP ) GOTO 4021 
XU( K , J ) -XU( K, 1 ) +RU*COS ( ALFA+TU ) +DX 
XL(K, J) -XL (K,l) +RL*COS( ALFA+TL )+DX 
4021 CONTINUE 

4020 YL(K, J)-YL(K,1 )+RL* SIN (ALFA+TL) 

ENDIF 

ENDIF 

1020 CONTINUE 

ENDIF 

IF(NUM.EQ.O) GOTO 1050 

C *+**************************+++**+******************** 

C FINDING THE SPAN OF THE WING AND LENGTH OF THE WINGLET 

C ****************************************************** 

TF-WAF+NUM+NWWJ F 

YAVl-0.5*( YU(TF, LOOP) +YL(TF, LOOP) ) 

YAV2-0 . 5* ( YU ( TF-1 , LOOP ) +YL( TF-1 , LOOP) ) 
ZAV1-0.5*(ZU(TF,LOOP)+ZL(TF,LOOP) ) 

ZAV2-0 . 5* ( ZU( TF-1 , LOOP ) +ZL( TF-1 , LOOP ) ) 

SLOPE- ( YAV1-YAV2 ) /( ZAV1-ZAV2 ) 

AS PAN- YAVl -SLOPE* ZAVl 

WLENGTH- ( ( ASPAN-YAVl ) **2 .+( ZAVl ) **2 . ) ** . 5 
WWLTR- ( WLENGTH/SPAN ) * 1 00 . 0 
S PANIN- ( ( YAVl -SPAN (/SPAN ) *100 . 0 
‘1050 WRITE (6,20) ASPAN, WLENGTH, WWLTR, SPANIN 

c ************************************************ 

C DETERMINATION OF THE MAXIMUM DOWNSTREAM DISTANCE 

c **************************««** AAAAAAAAA#AAAAAAAA 

XMAX-0 . 0 
XMAXU-0 . 0 
XMAXL-0 . 0 

DO 140 K-l , WAF+NUM+NWWJF 
DO 140 J-l , LOOP 

I F ( XU ( K , J ) .GT.XMAXU) XMAXU-XU ( K , J ) 

I F ( XL ( K , J ) .GT.XMAXL) XMAXL-XL ( K , J ) 

140 XMAX-0 . 5* ( XMAXL+XMAXU) 

Q ****************************************** 

C CREATING CROSS-SECTIONAL CUTS IN GEOMETRY 

Q ****************************************** 

C * INTERPOLATION IS PERFORMED ON UPPER * 

C * SURFACE POINTS FROM INBOARD TO OUT- + 

C * BOARD THEN ON THE LOWER SURFACE FROM * 

C * OUTBOARD POINTS TO INBOARD POINTS * 

C ****************************************** 

IF(NUM.EQ.O) THEN 

WRITE( 6, 31 ) YU ( WAF , 1 ) , 0 . 0 , ZU ( WAF , 1 ) 

ELSE 

I-WAF+NWWJF/2 
C I-WAF+1 

C I -WAF 

WRITE( 6,31) YU ( WAF , 1 ) , YU (1,1 ) , ZU ( WAF+NUM+NWWJF , 1 ) 
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n n o ^ on 


ENDIF 

CUTS-100 . 0 
DX-XMAX/CUTS 
DX-1 . 0 
XMAX-100 . 0 
XO-0 . 0 
NTAB-1 
XO-XO+DX 

******************************* 

INTERPOLATION ON UPPER AIRFOILS 
******************************* 

DO 400 K-l , WAF+NUM+NWWJF 
I F ( XO . LT . XU (1,1)) GOTO 425 
JU-0 

DO 410 J-l , LOOP 
XX( J)-XU(K,J) 

YY ( J , 1 ) -YU ( K , J ) 

IF(J.EQ.l) GOTO 410 
I F ( XX ( J-l ) . GT . XU ( K , J ) ) JU-J 
410 ZZ ( J , NTAB ) -ZU ( K , J ) 

J-l 

I F ( XU ( K , 1 ) . GT . XO ) GOTO 430 

L-LOOP 

IORDER-1 

I F( XU( K, LOOP ) . LT.XO) GOTO 550 
IF(JU.EQ.O) GOTO 553 

I F ( XO . GT . XU ( K , JU ) .AND . XO . LT . XU ( K , 1 ) ) THEN 
DO 551 N— 1 , JU 
XX ( N ) -XU ( K , N ) 

YY ( N , 1 ) -YU ( K , N ) 

551 ZZ(N,1)-ZU(K,N) 

IPT— 1 

XORDER-1 

L-JU 

CALL IUNI ( L , L , XX , NTAB , ZZ , I ORDER, XO , ZO, IPT , IERR ) 

I F ( IERR.NE.0) THEN 

WRI TE ( 6 , * ) 'IERR-', IERR 

ENDIF 

IF(K.GT.WAF) THEN 

IF(XO. GT.XU(K, LOOP-1) ) IORDER-1 

IPT--1 

CALL I UNI ( L , L , XX , NTAB , YY , IORDER , XO , YO , I PT , I ERR ) 
IF( IERR.NE.0) THEN 
WRITE(6,*)'IERR-' ,IERR 
ENDIF 

WRITE ( 6,31) XO, YO( 1 ) , ZO( 1 ) 

ELSE 

WRITE(6,31) XO,YU(K,J) ,ZO( 1) 

ENDIF 

DO 552 N- JU , LOOP 
XX(N-JU+1 ) -XU ( K , N ) 

YY(N-JU+1,1) -YU ( K , N ) 

552 ZZ ( N- JU+1 , 1 ) -ZU ( K , N ) 

L-LOOP- JU+1 

IPT--1 

IORDER-1 

IF(XO. GT.XU(K, LOOP-1 ) ) IORDER-1 

CALL IUNI ( L, L, XX, NTAB, ZZ , I ORDER , XO , ZO , IPT, IERR) 
IF( IERR.NE.0) THEN 
WRITE( 6 , * ) 'IERR-', IERR 
ENDIF 

IF(K.GT.WAF) THEN 

IF(XO. GT.XUlK, LOOP-1) ) IORDER-1 

IPT--1 

CALL IUNI ( L, L, XX, NTAB, YY, IORDER , XO , YO , IPT, IERR) 
I F ( IERR.NE.0 ) THEN 


290 



non 


WR I TE ( 6 , * ) 'I ERR-' , I ERR 
ENDIF 

WR I TE ( 6 , 3 1 ) XO, YO( 1 ) , ZO( 1 ) 

ELSE 

WRITE (6,31) XO, YU( K , J ) , ZO( 1 ) 

ENDIF 
GOTO 550 
ELSE 

DO 555 N- JU , LOOP 
XX(N-JU+1 )-XU( K,N) 

YY(N-JU+1 , 1 ) -YU ( K , N ) 

555 ZZ ( N-JU+1 , 1 ) -ZU ( K , N ) 

L-LOOP- JU+1 

IPT--1 

IORDER-1 

IF(XO.GT.XU( K, LOOP-1 > ) IORDER-1 

CALL I UN I ( L , L , XX , NTAB , ZZ , IORDER , XO, ZO , IPT, I ERR) 

IF( IERR.NE. 0 ) THEN 
WRITE ( 6 , * ) ' I ERR- ' , I ERR 

ENDIF 

IF(K.GT.WAF) THEN 

IF(XO. GT.XU(K, LOOP-1) ) IORDER-1 

IPT--1 

CALL I UNI (L,L, XX, NTAB, ZZ, IORDER, XO , ZO , I PT , I ERR ) 

IF( IERR.NE. 0 ) THEN 
WRITE ( 6 , * ) ' I ERR- ' , I ERR 
ENDIF 

WRITE (6,31) XO, YO( 1 ) , ZO( 1 ) 

ELSE 

WRI TE ( 6,31) XO,YU( K,J) , ZO( 1 ) 

ENDIF 
GOTO 550 
ENDIF 

553 IF(XO.GT.XU( K, LOOP-1 ) ) IORDER-1 
IPT— 1 

CALL I UNI ( L, L, XX, NTAB, ZZ, IORDER, XO,ZO, IPT, I ERR) 
IF(IERR.NE.O) THEN 
WRITE ( 6 , * ) ' I ERR-' , I ERR 
ENDIF 

IF(K.GT.WAF) THEN 
IF(XO.GT.XU( K, LOOP-1 ) ) IORDER-1 
I PT— -1 

CALL IUNI ( L , L , XX , NTAB , YY , IORDER , XO, YO, IPT, I ERR ) 

IF( IERR.NE. 0) THEN 
WRITE( 6 , + ) ' I ERR-' , I ERR 
ENDIF 

WRITE(6,31) XO , YO ( 1 ) , ZO ( 1 ) 

ELSE 

WRITE(6,31) XO ,YU(K,J),ZO(l) 

ENDIF 

************************************************** 
INTERPOLATION IN BETWEEN AIRFOILS ON UPPER SURFACE 
************************************************ AA 
550 L-LOOP 

705 L-L-l 

IF(L.EQ.O) GOTO 700 

I F ( K . EQ . WAF+NUM+NWWJF ) GOTO 700 

I F ( XU ( K+ 1 , LOOP ) . LT . XO ) GOTO 700 

IF(K.LE.WAF-2.0R.K.GE.WAF+2) THEN 

I F ( K . GE . WAF+NUM-2 ) GOTO 715 

DO 707 N-1,2 

XX ( N ) -XU ( K+N-l , L) 

YY(N, 1 ) — YU ( K + N-l , L) 

707 ZZ(N, 1 )«ZU( K+N-l ,L) 

C IF(XU(K,2) .GT.XO. AND .XU(K,1).LT. XO ) GOTO 2001 

IF(XX{1) .GE.XO-O . 05*DX) GOTO 705 
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2001 


715 

720 


725 

C 


2002 


700 

400 

C 

C 

C 

430 

005 


808 

C 


2003 


I F { XX ( 2 ) . LE . XO+ 0.05* DX ) GOTO 700 

I ORDER— 1 

IPT--1 

N-2 

CALL I UNI ( N , N , XX, NTAB , ZZ , I ORDER , XO , ZO, IPT , I ERR ) 

I F { IERR.NE. 0 ) THEN 
WR I TE ( 6 , * ) ' I ERR- ' , I ERR 

END I F 
IPT— 1 

CALL IUNI(N,N, XX,NTAB, YY , I ORDER , XO , YO , I PT , I ERR) 

I F ( IERR.NE. 0 ) THEN 

WRI TE ( 6 , * ) ' I ERR- ' , I ERR 

ENDIF 

WRITE (6,31) XO , YO ( 1 ) , ZO ( 1 ) 

GOTO 705 
ELSE 

GOTO 715 
ENDIF 
L-LOOP 
L-L-l 

IF(L.EQ.O) GOTO 700 

I F ( K . EQ . WAF+NUM ) GOTO 700 

I F ( XU ( K + 1 , LOOP ) . LT . XO ) GOTO 700 

DO 725 N-1,2 

XX{ N)-XU( K+N - 1 , L) 

YY(N,1)-YU(K+N-1 ,L) 

ZZ ( N , 1 )-ZU{ K + N- 1 , L) 

I F( XU( K, 2 ) .GT . XO. AND . XU( K , 1 ) . LT. XO) GOTO 2002 

I F ( XX( 1 ) .GE . XO-O . 05*DX ) GOTO 720 

I F ( XX { 2 ) . LE , XO+ 0 . 0 5 *DX ) GOTO 700 

IORDER-1 

IPT— 1 

N-2 

CALL I UN I ( N , N , XX , NTAB , Z Z , IORDER , XO , ZO , I PT , I ERR ) 

I F { IERR.NE . 0 ) THEN 
WRITE ( 6 , * ) 9 I ERR - 9 , I ERR 
ENDIF 
I PT— 1 

CALL I UN I ( N , N , XX , NTAB , YY , I ORDER , XO , YO , I PT , I ERR) 

I F ( IERR.NE . 0 ) THEN 
WRITE ( 6 , * ) ' I ERR- ' , I ERR 
ENDIF 

WRITE (6,31) XO, YO(l) ,ZO(l) 

GOTO 720 
CONTINUE 
CONTINUE 

★a**************************************************** 
INTERPOLATION IN BETWEEN THE AIRFOILS ON LOWER SURFACE 
****************************************************** 
DO 600 K-WAF+NUM+NWWJ F ,1,-1 
L-0 
L-L+l 

I F ( L . GT . LOOP ) GOTO 800 

I F ( K . EQ . WAF+NUM+NWWJF ) GOTO 800 

I F ( XL ( K+ 1 , LOOP ) . LT . XO ) GOTO 800 

I F ( K . LE . WAF- 1 . OR . K . GE . WAF+3 ) THEN 

I F ( K . LT . 2 ) GOTO 815 

DO 808 N-1,2 

XX( N)-XL( K+2-N , L ) 

YY(N, 1 )-YL( K+2-N, L) 

ZZ(N,l)-ZL(K+2-N,L) 

IF(XL( K, 2 ) .GT .XO .AND. XL( K, 1 ) . LT.XO) GOTO 2003 

I F ( XX ( 2 ) .GE.XO-0.05*DX) GOTO 800 

I F ( XX( 1 ) . LE . XO+0 . 05*DX) GOTO 805 

IORDER-1 

IPT--1 


292 



815 

820 


825 

C 


2004 


800 

C 

C 

C 


408 


441 


WRITE) 6 , * ) ' I ERR-' , XERR 
ENDIF 


) 


IPT — 1 


CALL 
IF( I 


I UNI ( N , N , XX , NTAB , YY , IORDER,XO, YO, I PT I ERR 
ERR.NE.O) THEN 


WRITE ( 6, * ) ' I ERR-' , I ERR 
ENDIF 

WRITE (6,31) XO , YO ( 1 ) , ZO ( 1 ) 

GOTO 005 

ELSE 

GOTO 815 
ENDIF 


) 


L-0 


L-L+l 


I F ( L . GT . LOOP ) GOTO 800 

IF( XL( K+l , LOOP ) . LT.XO ) GOTO 800 

DO 825 N-1,2 

XX(N)-XL(K+2-N,L) 

YY(N,l)-YL(K+2-N,L) 

ZZ(N,l)-ZL(K+2-N,L) 

I F ( XL ( K , 2 ) . GT . XO .AND.XL(K,1) .LT.XO) 

I F ( XX ( 2 ) . GE . XO-0 . 0 5 *DX ) GOTO 800 

IF(XX(1) .LE. XO+0 . 05*DX ) GOTO 820 

IORDER-1 

IPT--1 

N-2 


GOTO 2004 


CALL I UNI ( N, N, XX, NTAB, ZZ , I ORDER , XO , ZO, IPT, I ERR) 
I F ( IERR.NE. 0 ) THEN ' 

WRITE( 6 , * ) ' I ERR-' , I ERR 
ENDIF 
IPT— 1 

CALL IUNI ( N , N , XX , NTAB ,YY, IORDER,XO, YO, IPT, I ERR ) 
IF(IERR.NE.O) THEN 
WRITE ( 6,* ) ' I ERR-' , I ERR 
ENDIF 

WR I TE (6,31) XO , YO ( 1 ) , ZO { 1 ) 

GOTO 820 
CONTINUE 

******************************* 


INTERPOLATION ON LOWER AIRFOILS 

IF(XL(K,1) .GT.XO) GOTO 600 
JL-0 

DO 408 J-l , LOOP 
XX( J)-XL(K, J) 

VY( J,1)-YL(K, J) 

IF(J.EQ.l) GOTO 408 
I F ( XX (J-l) . GT . XL ( K , J ) ) JL-J 
ZZ ( J , NTAB ) -Z L ( K , J ) 

J-l 


L-LOOP 

IORDER-1 

IF( XL( K, LOOP ) .LT.XO) GOTO 600 
IF(JL.EQ.O) GOTO 443 

IF(XO.GT.XL(K,JL) . AND . XO . LT . XL ( K , 1 ) ) THEN 
DO 441 N- 1 , J L 
XX ( N ) -XL ( K , N ) 

*Y(N, 1 )-YL( K, N) 

ZZ ( N , 1 ) -ZL( K , N ) 

IPT— 1 

IORDER-1 

L-JL 

CALL IUNI ( L, L , XX , NTAB ,ZZ,IORDER,XO,ZO,IPT,IERR) 
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IF( IERR.NE. 0 ) THEN 

WR I TE ( 6 , * ) ’ I ERR- ' , I ERR 

ENDIF 

IF(K.GT.WAF) THEN 

I F( XO .GT . XL( K , LOOP-1 ) ) IORDER-1 

IPT--1 

CALL IUNI ( L, L , XX , NTAB , YY , I ORDER , XO , YO , I PT , I ERR) 
IF( IERR.NE . 0 ) THEN 
WRITE (6 , * ) ' I ERR-' , I ERR 
ENDIF 

WRITE (6,31) XO, YO< 1 ) , ZO( 1 ) 

ELSE 

WRITE( 6,31) XO,YL(K,J),ZO(l) 

ENDIF 

DO 442 N- JL , LOOP 
XX( N-JL+1 ) -XL ( K , N ) 

YY ( N-JL+1 , 1 ) - YL ( K , N ) 

442 ZZ(N-JL+1 , 1 )-ZL( K,N) 

L-LOOP-JL+1 

IPT--1 

IORDER-1 

IF( XO.GT.XH K, LOOP-1 ) ) IORDER-1 

CALL IUNI ( L, L, XX, NTAB, ZZ , I ORDER, XO, ZO , IPT, I ERR ) 
IF(IERR.NE.O) THEN 
WRITE(6,*) ' IERR-' , IERR 
ENDIF 

IF(K.GT.WAF) THEN 

IF(XO. GT.XL(K, LOOP-1) ) IORDER-1 

IPT--1 

CALL IUNI ( L , L , XX , NTAB , YY , IORDER, XO, YO , I PT , I ERR ) 
IF(IERR.NE.O) THEN 
WRITE (6,*) 'I ERR-' , I ERR 
ENDIF 

WRITE (6,31) XO, YO( 1 ) , ZO( 1 ) 

ELSE 

WRITE (6,31) XO ,YL(K,J) ,ZO(l) 

ENDIF 
GOTO 600 
ELSE 

DO 444 N- JL , LOOP 
XX ( N-JL+1 ) — X L ( K , N ) 

YY(N-JL+1 , 1 ) — Y L ( K,N) 

444 ZZ(N-JL+1 , 1 )-ZL( K,N) 

L-LOOP- JL+1 

IPT--1 

IORDER-1 

IF(XO.GT.XL( K, LOOP-1 ) ) IORDER-1 

CALL IUNI ( L, L, XX, NTAB , ZZ , IORDER, XO, ZO, IPT , IERR) 
I F ( IERR.NE . 0 ) THEN 
WRITE ( 6 , * ) 'IERR-', IERR 
ENDIF 

IF(K.GT.WAF) THEN 

IF(XO. GT.XL(K, LOOP-1) ) IORDER-1 

IPT--1 

CALL IUNI ( L, L, XX, NTAB , YY, IORDER, XO , YO , IPT, IERR) 
I F ( IERR.NE . 0 ) THEN 
WRITE (6,*)' IERR-' , I ERR 
ENDIF 

WRITE (6,31) XO, YO( 1 ) ,ZO( 1 ) 

ELSE 

WRITE ( 6,31) XO,YL(K,J) , ZO ( 1 ) 

ENDIF 
GOTO 600 
ENDIF 

443 IF(XO.GT. XL( K, LOOP-1 ) ) IORDER-1 
IPT — 1 
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CALL IUNI ( L , L , XX , NTAB , Z Z , I ORDER , XO , ZO , IPT, I ERR > 
I F ( IERR.NE.O) THEN 
WRITE ( 6 , * ) ' I ERR- ' , I ERR 
END I F 

IF(K.GT.WAF) THEN 

I F { XO . GT . XL ( K , LOOP-1 ) ) I ORDER- 1 

IPT--1 

CALL IUNI ( L , L, XX, NTAB , YY , I ORDER , XO , YO , IPT, I ERR ) 
I F { IERR.NE. 0 ) THEN 
WRITE(6, * ) ' I ERR**' , I ERR 
END I F 

WRITE (6,31} XO , YO( 1 ) , ZO ( 1 ) 

ELSE 

WRITE (6,31) XO , YL ( K , J ) , ZO ( 1 ) 

ENDIF 

600 CONTINUE 

IF(XMAX.GT.XO) GOTO 425 
WRITE (6,31) 666. 

STOP 

END 
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38 


4675 5.515441 

14.784876 

6.616219 

37 . 304613 

37.934041 

- 5.434903 

1.000000 

.000000 

. 305776 

1 . 000000 

.125000 

.255377 

1.000000 

.250000 

.204978 

1.000000 

.327398 

.173771 

1.000000 

.373794 

.141159 

1.000000 

. 420097 

.098604 

1.000000 

. 466308 

.000000 

1.000000 

.466308 

.000000 

1.000000 

.420097 

-.082946 

1.000000 

.373794 

-.117054 

1.000000 

.327398 

-.140804 

1.000000 

.250000 

-.155826 

1.000000 

.125000 

-.180087 

1.000000 

.000000 

-.204347 

2.000000 

.000000 

.492600 

2.000000 

.125000 

. 442201 

2.000000 

.250000 

. 391801 

2.000000 

. 500000 

.291002 

2.000000 

.795108 

.172016 

2.000000 

.841036 

.139733 

2.000000 

.886871 

.097608 

2.000000 

.932615 

.000000 

2.000000 

.932615 

.000000 

2.000000 

.886871 

-.082108 

2.000000 

.841036 

-.115872 

2.000000 

.795108 

-.139382 

2.000000 

.500000 

-.196658 

2.000000 

.250000 

-.245179 

2.000000 

.125000 

-.269440 

2.000000 

.000000 

-.293700 

3.000000 

.000000 

.611150 

3.000000 

.125000 

.578686 

3.000000 

.250000 

.546222 

3 .000000 

.475824 

.487573 

3.000000 

. 500000 

. 477826 

3.000000 

1.000000 

.276228 

3.000000 

1.262819 

.170261 

3.000000 

1 . 308278 

.138308 

3.000000 

1.353646 

.096612 

3.000000 

1.398923 

.000000 

3.000000 

1.398923 

.000000 

3.000000 

1 . 353646 

-.081270 

3.000000 

1.308278 

-.114689 

3.000000 

1.262819 

-.137960 

3.000000 

1.000000 

-.188969 

3.000000 

.500000 

-.286011 

3.000000 

.475824 

-.290703 

3.000000 

.250000 

-.304726 

3.000000 

.125000 

-.312488 

3.000000 

.000000 

-.320250 

4.000000 

.000000 

.729700 

4.000000 

.125000 

.697236 

4.000000 

.250000 

.664772 

4.000000 

.500000 

. 599845 

4.000000 

.951648 

. 482547 

4.000000 

1.000000 

.463052 

4.000000 

1.500000 

.261454 

4.000000 

1.730530 

. 168506 

4.000000 

1.775520 

.136882 

4.000000 

1.820420 

.095616 

4.000000 

1.865231 

.000000 

4.000000 

1.865231 

.000000 

4.000000 

1.820420 

-.080432 

4.000000 

1.775520 

-.113507 
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APPENDIX D 


DESCRIPTION OF PROGRAM EXPCONX 
D.l Input File Description 

The input file for the program, EXPCONX, was the output file generated by the 
program KEENANB, described in Appendix C. This file began with two lines of 
information where the second line was used by EXPCONX for decision purposes. For 
an example of the input File to EXPCONX, refer to Appendix C, Section 3. This 
example showed that the first column gave the axial location of the cross sectional cut 
while the second column gave the span location of the points and the last column was for 
the vertical location of points. The last line of the input file gave a "flag" number that 
would not be encountered in any of the geometries studied. This "flag" number indicated 
to EXPCONX that the end of the file had been reached. 

D.2 Description of EXPCONX 

The purpose of EXPCONX was to take the cross sectional cuts generated by 
KEENANB (Appendix C) and convert them into a usable form for either the EMTAC or 
SIMP codes. The program began by initializing variables. In particular, a variable was 
defined that would determine at what percent of the local span the patches would start 
and stop. EXPCONX would then read the first two lines of the input file. The first line 
was read by dummy variables and was not used. However, the second line gave 
information that was necessary to determine where patches began and ended. The first 
variable gave the span of the base wing while the second variable gave either a span 
location in a wing-winglet juncture or was set to zero. The third value in line two was the 
vertical location of the leading edge of the last airfoil. The fourth value was not used. 

After reading the first two lines, the program then proceeded by reading one cut of 
input data at a time. However, the values of line two determined how the cut was read. 
The first two values indicated whether the geometry was a wing alone or a wing- 
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winglet geometry. For wing alone geometries, the cross sectional cut was read until the 
coordinates had reached a local span maximum and began to return inboard. Once the 
maximum local span was found, the program interpolated thirty surface points per patch 
with two patches used to define the upper surface. Lengths of the two patches were 
determined by the percentage of the span value previously specified. This possibly uneven 
division of span allowed better geometric definition where needed. After the upper 
surface linear interpolation was completed, the program wrote the calculated values to an 
output file in the required format for the EMTAC or SIMP codes. Upon completing the 
upper surface calculations, the program interpolated the two lower surface patches for 
wing alone geometries where each patch had 30 points per patch. This procedure 
repeated for each cross section until the numerical "flag" was read. 

The program operated differendy for wing-winglet geometries. Since the majority of 
the geometry still consisted of the wing, the program would read one cross sectional cut at 
a time until the local span maximum was read and interpolated as before. As for the 
output, the format remained the same. However, if the program encountered a cross 
section that had span values larger than the second value of line two, which was the wing 
semispan, the search was no longer for the maximum span value. The program began 
using the third value listed in line two of the input file. This value indicated if the winglet 
and juncture were above or below the plane of the wing. For winglets with dihedral, the 
program would find the maximum vertical distance of the cut after the specified span 
location. This vertical location was the ending point for the outer upper surface patch and 
the beginning point for the lower outer surface patch. Once the patch locations were 
known, the program interpolated and reformatted the upper surface of the cut for use 
by EMTAC. Winglets that had anhedral required that EXPCONX look for a minimum 
vertical location beyond the indicated wing span. As before, the upper surface was 
manipulated into EMTAC or SIMP format. For the lower surface of the configuration, 
the program would read from the input file until the next cut began. The lower points 
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were divided, used for interpolation, and the new points were written in EMTAC format. 
This interpolation process was essentially identical for winglets rotated above or below the 
plane of the wing. With the interpolation completed by EXPCONX, the geometry was 
ready to be used in the EMTAC or SIMP codes. A listing of program EXPCONX is given 
on pages 300-306. 

D.3 Output File Description 

The output file from EXPCONX was generated for use in either the EMTAC or SIMP 
codes. In particular, this program generated cross sectional cuts with 30 points per 
patch and had four patches per cross sectional cut. A typical section of the output file is 
given on pages 307-308. 


299 



PROGRAM EXPCONX( OUTPUT , TAPE 5 , TAPE6 -OUTPUT ) 

C **************************************** 

C PROGRAM TO WRITE CONSTANT "X"-CUT INPUT 

C INTO SIMP OR EMTAC FORMAT 

C (PRESENTLY SET FOR FOUR PATCHES) 

C **************************************** 

REAL SPAN, SWLT,NEND, ZAVE, YO, YAVE, ZWLT 

INTEGER I,J,K,L,M,N,J2,ITRIG,ISC, I ORDER 

INTEGER IPT, Jl, I ERR, I FLAG , UFU , UFFU 

DIMENSION XO(200),Y(200),Z(200),YY(100),ZZ(100,1) 

DIMENSION ZO(1),YF(200),ZF(200), F YY ( 100) , FZZ( 100, 1 ) 

DIMENSION FY( 100 ) , FZ( 100 ) 

10 FORMAT! F15 . 6 , 15 ) 

11 FORMAT! 315) 

12 FORMAT! 2F15 . 6 ) 

14 FORMAT! 3F15.6) 

15 FORMAT! 4F10 . 6 ) 

16 FORMAT! 4F15 . 6 ) 

PI -4 . *ATAN ( 1 . ) 

ITRIG-0 

IERR-0 

LFU-0 

LFFU-0 

1-0 

ISC-4 

PERSPAN- .90 
J-0 

THT1-0 . 0 
THT2-0 . 0 

READ! 5,15) DUMl , DUM2 , DUM3 , DUM4 
READ! 5,16) SPAN, SWLT, ZWLT, XWLT 
IF(SWLT.EQ.O.O) THEN 
NEND-SPAN 
ELSE 

NEND-SWLT 

ENDIF 

C READING IN ONE GEOMETRIC CUT AT A TIME 

Q *************************************** 

100 NEOP-0 

I -1+1 

READ! 5,14) XO( I ) ,Y( I ) ,Z( I ) 

IF(I.EQ.l) GOTO 100 

I F( Y( 1-1 ) . EQ . Y ( I ) .AND. Y( I ) .NE.0.0) THEN 
ZAVE- ( Z ( I-l)+Z( I ) )/2 . 

Z( I-D-ZAVE 
I-I-l 
GOTO 100 
ENDIF 

IF(XO( I ) .NE.XO! 1-1 ) ) THEN 

J2-I-1 

XO( l)-XO( I ) 

Y ( 1 ) -Y ( I ) 

Z ( 1 ) -Z ( I ) 

ITRIG-0 
GOTO 200 
ENDIF 

IF( ITRIG.EQ.l ) GOTO 100 

I F ( ZWLT . GE .0.0) THEN 

IF! Y( 1-1 ) .GT. Y( I ) ) THEN 

ITRIG-1 

GOTO 105 

ENDIF 

IF( Y(I-l) . GE .NEND.AND. Z ( I - 1 ) . GT . Z ( I ) ) THEN 
ITRIG-1 

C YAVE-! Y( I )+Y( 1-1 ) )/2 . 
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noon noonocn noon 


Y ( I — 1 ) -YAVE 
ZAVE-(Z( I )+Z( I - 1 ) ) / 2 . 

Z ( 1-1 ) -ZAVE 
I-I-l 
GOTO 105 
ENDI F 
ELSE 

IF(Y( I — 1 ) .GT.NEND) GOTO 5 
I F ( Y ( I - 1 j . GT . Y ( 1 ) ) THEN 
ITRIG-1 
GOTO 105 
ENDI F 

I F ( Y ( I -1 ) . GE . NEND . AND . Z ( I -1 ) . LT . Z ( I ) ) THEN 
ITRIG-1 

YAVE- ( Y ( I } +Y ( 1-1 ) )/2 . 

Y ( 1-1 )-YAVE 
ZAVE- ( Z( I )+Z( 1-1 ) )/2 . 

Z( 1-1 )-ZAVE 
I-I-l 
GOTO 105 
ENDI F 
ENDI F 
GOTO 100 

*********** * ************************** 

UPPER SURFACE INTERPOLATION TO CREATE 
THE SAME NUMBER OF POINTS PER PATCH 

★A************************************ 

105 J-l-1 

106 YM-0.0 
YMAX-0 . 0 
K-l 

N-l 

UFU-0 

UFFU-0 

NEOP-0 

I F ( J . LE . 3 ) THEN 

WRITE(6,*) 'MORE POINTS NEED TO BE ADDED AT LOCATION', XO(I) 
GOTO 999 
ENDI F 

DO 110 L-l , J 
YY(L)— Y(J— (L— 1) ) 

I F ( YMAX.LT. YY( L) ) YMAX-YY ( L ) 

IF(L.EQ.l) GOTO 110 

I F ( YY(L) .LT.YY(L-l) . AND . UFU . EQ . 0 ) UFFU-L 
IF(YY(L) .GT.YY(L-l) ) UFU-L 

110 ZZ( L, 1 )-Z( J-( L-l ) ) 

C IF(NEOP.EQ.0.OR.NEOP.LE.2.OR.XO(I) .LT.XWLT) THEN 

YM- ( YMAX-YY { J ) ) * PERSPAN + YY ( J ) 

DO 111 L- 1 , J 

I F { YM . LT . YY ( L ) ) THEN 

GOTO 111 

ELSE 

NEOP-L 

GOTO 112 

ENDI F 

111 CONTINUE 

C ENDI F 

112 I ORDER— 1 

DO 500 L-NEOP , J 
FYY ( L-NEOP+ 1 ) - YY ( L ) 

500 FZZ( L-NEOP+1 , 1 )-ZZ ( L, 1 ) 

I PT— 1 

DO 115 L-l, 28 

YF(L)-YY(NEOP)-REAL(L)*( YY(NEOP)-YY{ J) )/(28.+l. ) 

YO-YF(L) 

IF( YO.LE.YY( J-l) ) IORDER-1 
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non m oooo»- 


M-J-NEOP+1 

CALL KIUNI (M,M, FYY, 1 , FZZ , IORDER , YO , ZO , IPT, I ERR) 

IF( IERR.NE.O) THEN 
WRITE( 6 , * ) ' I ERR-' , I ERR 
ENDIF 

15 ZF(L)-ZO(l) 

*************************************** 

WRITING THE INTERPOLATED UPPER SURFACE 
IN SIMP OR EMTAC FORMAT 
*************************************** 

WRITE ( 6 , 1 0 ) XO(I),ISC 

WR I TE ( 6 , 1 1 ) 1,30,0 

WR I TE ( 6 , 1 2 ) ZZ ( J , 1 ) , YY ( J ) 

DO 120 L-28,1,-1 
20 WRITE (6,12) Z F ( L ) , YF ( L ) 

WRITE (6,12) ZZ1NEOP, 1 ) , YYINEOP ) 

IORDER- 1 

IF(UFU.EQ.O.OR.UFFU.EQ.J) THEN 
IPT--1 

*************************************** 

INTERPOLATION ON OUTBOARD UPPER SURFACE 

*************************************** 

DO 2150 L-1,28 

YF( L ) -YMAX- ( YMAX-YY ( NEOP ) ) * ( REAL ( L )/( 28 . +1 . ) ) 

YO- YF ( L ) 

IF(YO.LE.YY( NEOP-1 ) ) IORDER-1 

CALL KIUNI(J,J,YY,1,ZZ, IORDER , YO , ZO , IPT, I ERR) 

IF( IERR.NE.O) THEN 
WRITE ( 6 , * ) ' I ERR-' , I ERR 
ENDIF 

2150 ZF(L)-ZO(l) 

ELSE 

IF(UFFU.NE.O) THEN 
WRITE( 6 , * ) UFFU 

WRITE { 6 , * ) ' I ERR , PROBLEMS AT CUT ' F XO(I) 

ENDIF 

IF(UFU.GT. NEOP. OR. UFFU. GT. NEOP) GOTO 2600 

IF(UFFU.EQ.O) THEN 

K-0 

GOTO 3200 
ENDIF 

DO 3000 L-l ,UFFU 
FYY(L)-Y( J-(L-l) ) 

3000 FZZ(L,1)-Z( J-(L-l) ) 

IPT--1 

IORDER-1 

DO 3150 L-1,28 

YF( L) -YMAX- ( YMAX-YY ( NEOP ) ) * ( REAL ( L ) /( 28 .+1 . ) ) 

I F ( YF ( L ) . LT. FYY (UFFU) . OR . YF ( L ) . GT . FYY ( 1 ) ) THEN 
N-L 

GOTO 3200 
ENDIF 
YO- YF ( L ) 

CALL KIUNI ( UFFU, UFFU, FYY, 1 , FZZ , IORDER , YO , ZO , IPT, I ERR) 
IF(IERR.NE.O) THEN 
WRITE ( 6 , * ) ’ I ERR-' , I ERR 
ENDIF 

3150 ZF(L)-ZOd) 

3200 DO 2350 L-l .UFU-UFFU+K 

FYY ( L ) - Y ( J-(UFFU+L)+1+K) 

2350 FZZ( L, 1 )-Z( J-(UFFU+L)+1+K) 

IPT--1 

IORDER-1 

DO 2400 L-1,28 

FY( L ) - YMAX- ( YMAX-YY (NEOP ) ) * ( REAL ( L ) /( 28 . + 1 . ) ) 

IF(FY(L) .LT.FYY(l) .OR.FY(L) .GT. YMAX) THEN 



N = L 

GOTO 2450 
END I F 
YO-FY( L ) 

I F( YO. LE . YY( NEOP-1 ) ) IORDER-1 
IF(YO.LE.FYY( UFU-1 ) ) IORDER-1 
M-UFU-UFFU+K 

CALL KIUNI(M,M,FYY, 1 ,FZZ, IORDER , YO, ZO , I PT , IERR ) 

IF( IERR.NE.0) THEN 
WRITE( 6 , * ) ' I ERR- ' , IERR 
ENDIF 

2400 FZ(L)-ZO(l) 

2450 IORDER-1 

DO 2500 L-l , J-UFU+1 
FYY{L)-Y(J-(UFU+L)+2) 

2500 FZZ(L,l)-Z(J-(UFU+L)+2) 

IPT--1 

DO 2550 L-l , 28- ( N-l ) 

YF( L) -YMAX- ( YMAX-YY (NEOP) )*(REAL(L)/(20.+2. -REAL ( N ) ) ) 

YO-YF ( L ) 

I F ( YO. LE. YY(NEOP-l ) ) IORDER-1 
M-J-UFU+1 

CALL KIUNI ( M, M, FYY, 1 , FZZ , IORDER , YO , ZO , I PT , I ERR ) 

I F( IERR . NE . 0 ) THEN 
WRITE ( 6 , * ) 'IERR-' ,IERR 
ENDIF 

2550 ZF(L)-ZO(l) 

ENDIF 

2600 CONTINUE 

Q ********************************************** 

C WRITING THE INTERPOLATED OUTBOARD UPPER SURACE 

C INTO SIMP OR EMTAC GEOMETRIC FORMAT 

C ********************************************** 

WRITE (6,11) 2,30,0 
WRITE(6,12) ZZ(NEOP,l) ,YY(NEOP) 

IF(ZWLT.GE.O.O.OR.N.EQd) THEN 
DO 130 L-28,1,-1 
130 WRITE (6,12) ZF(L),YF(L) 

ELSE 

DO 135 L-28- ( N-l ) ,1,-1 

135 WRITE(6,12) ZF(L) ,YF(L) 

DO 136 L-l, N-l 

136 WRITE(6,12) FZ(L),FY(L) 

ENDIF 

WRITE (6,12) ZZ ( 1 , 1 ) , YY ( 1 ) 

GOTO 100 

Q *************************************** 

C LOWER SURFACE INTERPOLATIONS TO CREATE 

C SAME NUMBER OF POINTS PER PATCH 

Q *************************************** 

200 J1-J2-J+1 

K-l 
N-l 

THTl-0 . 0 
YM-0 . 0 
NEOP-0 
YMAX-0 . 0 
LFFU-0 
LFU-0 
J-J-l 

I F ( J 1 . LE . 3 ) THEN 

WRITE( 6 , * ) ' MORE POINTS NEED TO BE ADDED AT LOCATION', XO(J2) 
GOTO 999 
ENDIF 

DO 210 L-l , Jl 
YY ( L ) -Y ( J+L ) 
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ZZ(L,1)-Z(J+L) 

I F C YMAX.LT.YY( L) ) YMAX-YY(L) 

IF(L.EQ.l) GOTO 210 

I F( YY( L ) . LT. YY( L-l ) . AND . LFU . EQ . 0 ) LFFU-L 
IF(YY(L) . GT . YY ( L- 1 ) ) LFU-L 
I F ( NEOP . NE . 0 } GOTO 210 

THTl- ATAN ( ( ZZ ( L , 1 )-ZZ ( L-l , 1 ) )/( YY( L ) -YY ( L-l ) ) ) 

I F ( L . LE . Jl/4 ) GOTO 210 
I F ( THTl . LT. ( THT2- .1745)) NEOP-L-1 

210 THT2-THT1 

C IF( NEOP . EQ . 0 .OR .NEOP . LE . 3 ) THEN 

YM - ( YMAX-YY ( J 1 ) ) * PERS PAN+ Y Y ( J 1 ) 

DO 211 L-l , Jl 

I F ( YM.LT. YY( L) ) THEN 

GOTO 211 

ELSE 

NEOP-L 

GOTO 212 

ENDIF 

211 CONTINUE 

C ENDIF 

212 IORDER-1 

I F ( LFU. EQ. 0 .OR.LFFU. EQ. Jl ) THEN 
IPT--1 

DO 215 L-l, 28 

YF(L)-YMAX-( YMAX-YY (NEOP) ) * ( REAL ( L )/( 28 . +1 . ) ) 

YO-YF ( L ) 

IF( YO . LE . YY( NEOP-1 ) ) IORDER-1 

CALL KIUNI(Jl,Jl, YY , 1 , ZZ , I ORDER, YO, ZO, IPT, I ERR) 
IF(IERR.NE.O) THEN 
WRITE( 6 , * ) ' I ERR-' , IERR 
ENDIF 

215 ZF(L)-ZO(l) 

ELSE 

IF(LFU.GT. NEOP. OR. LFFU.GT. NEOP) GOTO 260 

IF(LFFU.EQ.O) THEN 

K-0 

GOTO 320 
ENDIF 

DO 300 L-l , LFFU 
FYY ( L ) -Y ( J + L ) 

300 FZZ(L,1)-Z< J+L) 

IPT--1 

IORDER-1 

DO 315 L-l, 28 

YF ( L ) -YMAX- ( YMAX-YY ( NEOP ) ) * ( REAL ( L ) /( 28 . + 1 . ) ) 

I F ( YF ( L ) .LT. FYY (LFFU) .OR.YF(L) .GT.FYY(l) ) THEN 
N-L 

GOTO 320 
ENDIF 
YO-YF ( L ) 

CALL KIUNI(LFFU, LFFU, FYY, 1,FZZ, I ORDER , YO , ZO , IPT, IERR) 
IF( IERR. NE . 0 ) THEN 
WRITE ( 6 , * ) ' IERR-' , IERR 
ENDIF 

315 ZF(L)-ZO(l) 

320 DO 235 L-l , LFU-LFFU+K 

FYY(L)-Y( J+L+LFFU-K) 

235 FZZ(L,1)-Z( J+L+LFFU-K) 

IPT— 1 

IORDER-1 

DO 240 L-l, 28 

FY( L) -YMAX- ( YMAX-YY ( NEOP) ) * ( REAL ( L ) /( 28 . + 1 . ) ) 

I F ( FY ( L ) . LT . FYY ( 1 ) . OR . FY ( L ) . GT . YMAX ) THEN 
N-L 

GOTO 245 
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ENDIF 
YO-FY ( L ) 

IF(YO.LE.YY(NEOP-l) ) IORDER-1 
IF(YO.LE.FYY(LFU-l) ) IORDER-1 
M-LFU-LFFU+K 

CALL K I UN I ( M , M , FYY , 1 , FZZ , I ORDER , YO , ZO , IPT, I ERR) 

IF( IERR.NE.O) THEN 
WR I TE ( 6 , * ) ' I ERR-' , I ERR 
ENDIF 

240 FZ(L)-ZO(l) 

245 IORDER-1 

DO 250 L-l,Jl-LFU+l 
FYY( L)-Y( J + L+LFU-1 ) 

250 FZZ( L, 1 )-Z ( J + L + LFU-1 ) 

IPT--1 

DO 255 L-l , 28- ( N— 1 ) 

YF(L)-YMAX-( YMAX-YY(NEOP) ) * ( REAL ( L )/( 28 . +2 . -REAL ( N ) ) ) 

YO-YF(L) 

I F ( YO. LE. YY( NEOP-1 ) ) IORDER-1 
M-J1-LFU+1 

CALL KIUNI (M,M, FYY, 1 , FZZ , IORDER , YO , ZO, I PT, I ERR ) 

IF( IERR.NE.O) THEN 
WRITE ( 6, * ) ' I ERR-' , I ERR 
ENDIF 

255 ZF(L)-ZO(l) 

ENDIF 

260 CONTINUE 

c ************************************** 

C WRITING THE INTERPOLATE LOWER SURFACE 

C IN SIMP OR EMTAC FORMAT 

c ************************************** 

WRITE (6,11) 3,30,0 
WRITE( 6,12) ZZ ( 1 , 1 ) , YY ( 1 ) 

IF( ZWLT.GE . 0 . 0 .OR.N.NE.l ) THEN 
DO 350 L-N-l ,1,-1 
350 WRITE(6,12) FZ(L),FY(L) 

DO 355 L-l , 28- ( N-l ) 

355 WRITE (6,12) Z F ( L ) , YF ( L ) 

ELSE 

DO 220 L-l, 28 

220 WRITE (6,12) Z F ( L ) , YF ( L ) 

ENDIF 

WRITE (6,12) ZZ(NEOP,l) ,YY(NEOP) 

IORDER-1 

DO 340 L-l , Jl-NEOP+1 
YY(L)-Y( J+L+NEOP-1) 

340 ZZ( L, 1 ) -Z( J+L+NEOP-1 ) 

IPT--1 

DO 225 L-l, 28 

YF ( L ) -YY ( 1 ) -REAL ( L ) * ( YY ( 1 ) -YY( Jl-NEOP + 1 ) )/( 28 .+1 . ) 

YO-YF ( L ) 

I F ( YO . LE . YY ( (Jl-NEOP+1 )-l ) ) IORDER-1 

CALL KIUNI ( Jl-NEOP + 1 , Jl-NEOP + 1 , YY, 1 , ZZ , IORDER , YO , ZO , IPT, I ERR ) 
I F ( IERR.NE . 0 ) THEN 
WRITE( 6 , * ) ' I ERR- ' , I ERR 

ENDIF 

225 ZF(L)-ZO(l) 

Q ********************************************** 

C WRITING THE INTERPOLATED INBOARD LOWER SURFACE 

C INTO SIMP OR EMTAC GEOMETRIC FORMAT 

C *********+**+*******>************************* 

WRITE(6,11) 4,30,0 
WRITE (6,12) ZZ ( 1 , 1 ) , YY ( 1 ) 

DO 230 L-l, 28 

230 WRITE (6,12) Z F ( L ) , YF( L ) 

WRITE (6 , 12) ZZ( Jl-NEOP+1 , 1 ) , YY( Jl-NEOP+1 ) 
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IF(XO( 1 ) . EQ.666 . ) GOTO 999 
1-1 

I FLAG- 0 
LFU-0 
LFFU-0 
GOTO 100 
999 STOP 
END 

SUBROUTINE K I UN I ( MM , NN , X , KTAB , Y, IORDER , XO , YO , IPT, I ERR ) 

INTEGER IORDER, MM, NN, I ERR, KTAB, IPT, KN , KOLD 

REAL X ( NN ) , Y ( MM , KTAB) , XO, YO, SLOPE 

I F { IPT. EQ.-l ) THEN 

KN- 1 

KOLD- 1 

ELSE 

KN-KOLD 

ENDIF 

I F { XO . LT • X ( KN ) ) GOTO 9001 

9002 IF(KN.GE.NN) GOTO 9000 
I F { XO . GT . X ( KN+ 1 ) ) THEN 
KN-KN+1 

GOTO 9002 

ELSE 

KOLD-KN 

I F ( XO . LT . X ( KN + 1 ) . AND . XO . GT . X ( KN ) ) THEN 

SLOPE- ( ( Y( KN + 1, KTAB )-Y(KN, KTAB) )*(XO-X(KN) ) ) /( X ( KN+ 1 ) -X ( KN ) ) 

YO- Y ( KN, KTAB ) + SLOPE 

ENDIF 

ENDIF 

9001 I F ( XO . LT . X( NN ) ) GOTO 9000 
I F ( KOLD . EQ . 1 ) KN- 2 

9003 I F { KN . GT . NN ) GOTO 9000 
I F ( XO . LT . X ( KN ) ) THEN 
KN-KN+1 

GOTO 9003 

ELSE 

KOLD-KN 

I F ( XO . GT. X( KN) . AND. XO . LT .X( KN-1 ) ) THEN 

SLOPE- ( ( Y( KN, KTAB) -Y( KN-1, KTAB) ) * ( XO-X ( KN-1 ) ) )/(X( KN ) -X ( KN-1 ) ) 

YO- Y { KN-1 , KTAB )+ SLOPE 

ENDIF 

ENDIF 

9000 CONTINUE 
END 


306 



1 


2 


3 


1.000000 
30 0 

. 305776 
. 300579 
.295382 
. 290185 
. 284988 
. 279791 
. 27 4 59 4 
. 269 398 
.264201 
.259004 
.253807 
. 2486 10 
. 2 4 3 4 1 3 
. 238216 
.233019 
.227822 
.222625 
.217428 
.212231 
.207034 
.201837 
.196640 
.191443 
.186246 
. 181049 
. 175852 
. 168 3 39 
.159279 
.150219 
.141159 
30 0 
.141159 
.138227 
.135295 
.132363 
.129431 
.126499 
.123568 
.120636 
.117704 
.114772 
.111840 
.108908 
. 105976 
.103044 
. 100112 
.095299 
.088492 
.081685 
.074877 
.068070 
.061263 
.054456 
.047649 
.040842 
.034035 
.027228 
.020421 
.013614 
.006807 
.000000 
30 0 

. 000000 
-.005726 


.000000 
.012889 
.025779 
.038668 
.051558 
. 0644 4 7 
.077337 
.090226 
.103116 
. 116005 
. 128894 
.141784 
.154673 
.167563 
. 180452 
. 19 3342 
.206231 
.219121 
. 232010 
. 24 4900 
. 257789 
. 270678 
.283568 
.296457 
. 309347 
. 322236 
. 3 35 126 
. 34801 5 
. 360905 
. 373794 

.373794 
.376984 
. 380174 
. 383364 
.386555 
.389745 
. 3929 35 
. 396 125 
.399315 
.402505 
.405695 
.408886 
.412076 
.415266 
.418456 
.421646 
.424036 
.428026 
.431216 
.434407 
.437597 
.440787 
.443977 
.447167 
.450357 
.453547 
.456730 
.459928 
.463118 
.466308 

.466308 

.463118 
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4 


1 


-.011452 
-.017178 
-.022904 
-.028631 
-.034357 
-.040083 
-.045809 
-.051535 
-.057261 
-.062987 
-.068713 
-.074439 
-.080166 
-.084155 
-.086505 
-.088855 
-.091205 
-.093555 
-.095905 
-.098254 
-.100604 
-.102954 
-.105304 
-.107654 
-.110004 
-.112354 
-.114704 
-.117054 
30 0 

-.117054 
-.123652 
-.130250 
-.136848 
-.141806 
-.144308 
-.146809 
-.149311 
-.151813 
-.154314 
-.156816 
-.159318 
-.161819 
-.164321 
-.166823 
-.169324 
-.171826 
-.174328 
-.176829 
-.179331 
- . 181833 
-.184334 
-.186836 
-.189337 
-.191839 
-.194341 
-.196842 
-.199344 
-.201845 
-.204347 
2.000000 
30 0 

.492600 
.481545 
.470491 
.459436 
.448382 


.459928 
.456738 
.453547 
.450357 
.447167 
.443977 
.440787 
.437597 
.434407 
.431216 
.4 28026 
.424836 
. 4 21646 
. 4 1 8 4 56 
.415266 
.412076 
.408886 
. 405695 
.402505 
. 39931 5 
. 396125 
. 392935 
. 309745 
. 386555 
. 383364 
. 3801 74 
. 376984 
. 373794 

. 373794 
. 360905 
. 348015 
. 335126 
. 3222 36 
. 309 347 
. 296457 
. 283568 
.270678 
.257789 
. 2 44900 
. 2 32010 
.219121 
.206231 
.193 342 
. 180452 
.167563 
. 154673 
.141784 
. 128894 
.116005 
.103116 
.090226 
. 077 337 
.064 447 
.051558 
.038668 
.025779 
.012889 
.000000 


.000000 
. 0274 18 
. 054835 
.082253 
.109670 
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APPENDIX E 

PROGRAM FOR JUNCTURE AIRFOILS 

To define the juncture between a wing and winglet, a series of airfoils were needed. 
The following program was written by C.K. Brown and was designed to generate a series 
of four airfoils to be used in the juncture of a wing-winglet geometry. These juncture 
airfoils were linearly interpolated from the base wing tip airfoil and the root airfoil of 
the winglet. The input file and output file were similar to the input file discussed in 
Appendix C and were written in what was generally referred to as the WIBCO-PPW 26 * 27 
format. 
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PROGRAM TWOAI RT( OUTPUT , TAPE5 , TAPE6-0UTPUT ) 

THIS PROGRAM READS 2 AIRFOILS IN WIBCO-PPW FORMAT AND 
INTERPOLATES A SPECIFIED NUMBER OF NEW AIRFOILS 
BETWEEN THEM USING FIRST ORDER LINEAR EQUATION. 


NUMAF - THE NUMBER OF NEW AIRFOILS 

DIMENSION XOCl (60), XOC2 (60 ) , ZTUl( 60) ,ZTU2(60) , ZTLl ( 60 ) ,ZTL2(60) 
DIMENSION ZU(60,60),ZL(60,60) ,ZUC(60,60),ZLC(60,60) 

DIMENSION XPL( 60 ) ,XPT(60) ,Y(60) , CHORD ( 6 0 ), SLOPE ( 60 ) 

DIMENSION ZTUCl ( 6 0 ) ,ZTUC2(60) ,ZTLC1(60) ,ZTLC2(60) 

I FORMAT( 7F10 . 6 ) 

i format;/) 

READ WIBCO-PPW FORMATTED GEOMETRY, 2 AIRFOILS ONLY 


READ( 5,30) 

read; 5,20) PY , VER , POD 

read; 5,20) ASPECT , AN IN , ANOSW , XMOM , ZWING , REFAR, WS 
NXOC- I fix; an IN ) 

READ (5, 20) XPL1.YP1 ,XPTl,TWISTl,AKODEl 
READ( 5,20) (XOCl(J) , J-l,NXOC) 

READ; 5,20) (ZTUl(J) ,J-l,NXOC) 

READ; 5,20) (ZTLl(J) , J-l, NXOC) 
read; 5,20) XPL2, YP2 ,XPT2 ,TWIST2 , AKODE2 
READ; 5, 20) (XOC2( J) , J-l ,NXOC) 
read; 5,20) ( ZTU2 ( J ) » J-l , NXOC ) 

READ (5,20) (ZTL2( J) , J-l, NXOC) 

NUMAF-4 

SSPAN-YP2-YP1 

YINCR-SSPAN/( FLOAT( NUMAF )+l . ) 

NUMT-NUMAF+2 


C 

C 

C 


INTERPOLATION MODULE 


DO 50 K-l.NUMT 
Y( K) -YPl +YINCR* FLOAT { K-l ) 

XPL(K)-XPL1+(XPL2-XPL1)*( Y( K ) -YPl )/( YP2-YP1 ) 

XPT ( K)“XPTl+(XPT2-XPTl ) * ( Y( K ) -YPl )/( YP2-YP1 ) 
CHORD( K)-XPT( K)-XPL( K) 

CHORD 1 “XPT 1-XPLl 
CHORD2-XPT2-XPL2 
SLOPE( K)-(Y(K)-YPl)/( YP2-YP1) 

DO 55 J-l, NXOC 
ZTUCl ( J ) -ZTUl ( J ) * CHORD 1 
ZTUC2 ( J ) -ZTU2 ( J ) *CHORD2 

ZUC ( K , J ) -ZTUCl (J)+(ZTUC2(J) -ZTUCl ( J ) ) *SLOPE( K ) 
ZU( K , J ) “ZUC( K , J ) /CHORD ( K ) 

ZTLCK J)-ZTL1( J)*CHORDl 
ZTLC2 ( J ) -ZTL2 ( J ) *CHORD2 

ZLC(K, J) -ZTLCK J)+(ZTLC2< J )-ZTLCl( J) ) ‘SLOPE (K) 
ZL( K,J ) — Z LC ( K,J )/CHORD( K) 


55 


50 


CONTINUE 

write; 6 , 20 ) 
write; 6 , 20 ) 
write; 6 , 20 ) 
write; 6 , 20 ) 

CONTINUE 

END 


XPL(K) ,Y(K) , XPT ( K ) , TWISTl , AKODEl 
( XOCl ( J ) , J-l, NXOC) 

( ZU { K , J ) , J-l, NXOC) 

( ZL ( K , J ) , J-l , NXOC) 
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APPENDIX F 

PROGRAM FOR PATCH ALTERATION AND GEOMETRIC SPLICING 

The fortran program, CHANGE, was used for two purposes involving the "natural" 
flow wing 15 > 16 . The first purpose was to convert the EMTAC format as given by 
researchers from NASA-Langley. To describe wing-winglet geometries, at least four 
patches per cross section were found to be necessary on the wing and winglet. However, 
the original "natural" wing had an EMTAC description consisting of only three patches 
per cross sectional cut. Because of the three patch format, CHANGE was used to split 
the second patch into two patches if the winglet was not yet present at a particular cross 
section. When the winglet was present at a cross section, the code would alter only the 
points on the outboard pan of the wing such that the winglet and juncture could be 
attached to the wing. This involved eliminating the original "natural" wing points beyond a 
specified span location and interpolating the necessary points per patch for the winglet. In 
this study, the specified span location was fixed at 90% of the trailing edge semispan The 
integrated wing and winglet coordinates were written to an output file in EMTAC format 
consisting of four patches per cross sectional cut. A listing of the CHANGE program 
follows. 
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PROGRAM CHANGE(OUTPUT,TAPE5,TAPE7,TAPE6= OUTPUT) 

£ ******************************************* 

C PROGRAM TO CHANGE NATURAL 3 PATCH WING INTO 
C A 4 PATCH WING OR WING-WINGLET COMBINATION 

Q ******************************************* 

REAL SPAN,SWLT,NEND,ZAVE,YO,YAVE,ZWLT,XWLT,YMAX,YPER,XO 

REAL DUM1,DUM2,DUM3,DUM4,XJ,YJ 

INTEGER I,J,K,L,M,N,J2,lTRIG,lSC,IORDER,NPT,ND 

INTEGER IPTT,IERR,IFLAG,UFU,UFFU 

DIMENSION Y(5,30),Z(5,30),YY(200),ZZ(200,1),ITH(5) 

DIMENSION ZO(1),YF(200),ZF(200),FYY(100),FZZ(100,1),IPT(5) 
DIMENSION FY(100),FZ(100),YM(150),ZM(150),KPER(5,5) 

10 FORMAT(Fl 5.6,15) 

15 FORMAT(3I5) 

20 FORM AT(2F1 5.6) 

25 FORMAT(3F15.6) 

30 FORMAT(4F10.6) 

35 FORMAT(4F15.6) 

Q ************************************** 

C READING IN THE THREE PATCH FORMAT 
C ONE PATCH AT A TIME 

Q ************************************** 

YPER=41.97 
C YPER=43.70 

READ(7,30) DUM1,DUM2,DUM3,DUM4 
READ(7,35) SPAN,SWLT,ZWLT,XWLT 
IF(SWLT.EQ.O.O) THEN 
NEND=SPAN 
ELSE 

NEND = SWLT 
ENDIF 

50 READ(5,10) XO.ISC 

IF(XO.EQ.999) GOTO 999 

YMAX=0.0 

L=0 

ITRIG = 0 
J = 0 

1000 J=J + 1 

READ(5,15) ITH(J),IPT(J),ND 
L=0 

DO 1005 N = 1,2 
1005 KPER(J,N) =0 

DO 1100 K=1,IPT(J) 

READ(5,20) Z(J,K),Y(J,K) 

IF(Y(J,K).GT.YPER.AND.ITR1G.EQ.0)THEN 
L=L+ 1 
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[TRIG = 1 
KPER(J,L) = K-1 
ENDIF 

IF(Y(J,K).LT.YPER.AND.ITRIG.EQ.l) THEN 

L=L+ 1 

ITRIG = 0 

KPER(J,L) = K 

ENDIF 

1100 IF(Y(J,K).GT.YMAX) YMAX=Y(J,K) 
IFOTH(J).LT.ISC) GOTO 1000 
WRITE(6,10) XO.ISC + l 
IPT(ISC+1) = IPT(ISC) 

NPT=(IPT(ISC-l) + l)/2 
IPT(ISC-1) = NPT 
IPT(ISC) = NPT 
IF(YMAX.LE.YPER) THEN 
WRITE(6,15) 1,IPT(1),ND 
DO 1200 K=1,IPT(1) 

1200 WRITE(6,20) Z(1,K),Y(1,K) 

WRITE(6,15) 2,IPT([SC-1),ND 
DO 1220 K=1,IPT(2) 

1220 WRITE(6,20) Z(2,K),Y(2,K) 

WRITE(6,15) 3,IPT(ISC),ND 
DO 1240 K=IPT(2),IPT(2) + NPT-1 
1240 WRITE(6,20) Z(2,K),Y(2,K) 

WRITEC6.15) 4,tPT(ISC+l),ND 
DO 400 K=1,IPT(ISC+1) 

400 WRITE(6,20) Z(3,K),Y(3,K) 

GOTO 50 
ELSE 

1300 READ(7,25) XJ,YJ,ZJ 
IF(XJ.LT.XO) GOTO 1300 
1500 READ(7,25) XJ.YJ.ZJ 

IF(YJ.LT.YPER) GOTO 1500 
L=1 

YM(L)=YJ 
ZM(L) = ZJ 
1600 L=L + 1 

READ(7,25) XJ,YM(L),ZM(L) 

IF(L.LT.2) GOTO 1600 
IF(YM(L).EQ.YM(L-1)) THEN 
L=L-1 

GOTO 1600 
ENDIF 

IF(ZWLT.GE.O.O) THEN 
IF(YM(L-1).GT.YM(L)) GOTO 1700 
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IF(YM(L-1).GE.NEND.AND.ZM(L-1).GT.ZM(L)) GOTO 1700 

GOTO 1600 

ELSE 

IFCYM(L-l).GT.NEND) GOTO 5 
IF(YM(L-1).GT.YM(L)) GOTO 1700 
ENDIF 

5 IF(YM(L-1).GE.NEND.AND.ZM(L-1).LT.ZM(L)) GOTO 1700 
GOTO 1600 
1700 YMAX=0.0 

IF(KPER(1,1).EQ.0) THEN 
[ = KPER(2,1) + L-1 
CUTS = 23. 

NCUTS=23 
ELSE 
[ = L- 1 

CUTS = REAL(IPT(l)-KPER(l,l)) + 23. 

NCUTS = IPT(l)-KPER(l,l) + 23 

ENDIF 

K= 1 

N = 1 

UFU = 0 

UFFU = 0 

IORDER=l 

DO 175 K=1,L-1,1 

YY(K)=YM(L-K) 

175 ZZ(K,1) = ZM(L-K) 

IF(KPER(l,l).NE.O) GOTO 181 
DO 180 K=1,KPER(2,1) 

YY(L-1 + K)=Y(2,KPER(2,1) + 1-K) 

180 ZZ(L-1 + K,1) = Z(2,KPER(2,1) + 1-K) 

181 DO 185 K=1,I 
IF(YMAX.LT.YY(K)) YMAX=YY(K) 

IF(K.EQ.l) GOTO 185 

IF(YY(K).LT.YY(K-l).AND.UFU.EQ.O) UFFU = K 
IF(YY(K).GT.YY(K-1)) UFU = K 
185 CONTINUE 
K=1 

YM(1)=YM(L-1) 

ZM(1) = ZM(L-1) 

YM(2)=YM(L) 

ZM(2) = ZM(L) 

IF(UFU.EQ.O.OR.UFFU.EQ.I) THEN 
IPTT = -1 

DO 2150 L=1,NCUTS 

YF(L)=YMAX-(YMAX-YY(I))*(REAL(L)/(CUTS + 1.)) 
YO=YF(L) 
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IERR=0 

IF(Y0.LE.YY([-1)) IORDER= 1 

CALL KIUNI(I,I,YY,1,ZZ,[0RDER,Y0,Z0,[PTT,IERR) 

IF(IERR.NE.O) THEN 

WRITE(6,*)’[ERR=’,[ERR 

END[F 

2150 ZF(L) = Z0(1) 

ELSE 

IF(UFFU.NE.O) THEN 
WRITE(6,*) UFFU 

WRITE(6,*) ’IERR, PROBLEMS AT CUT \X0 
ENDIF 

IF(UFFU.EQ.O) THEN 
K=0 

GOTO 3200 
ENDIF 

DO 3000 L=1,UFFU 
FYY(L)=YY(I-(L-1)) 

3000 FZZ(L,1) = ZZ(I-(L-1),1) 

IPTT = -1 
IORDER=l 

DO 3150 L=1,NCUTS 

YF(L) =' YMAX-CYMAX-YY(I)) * (REAL(L)/ (CUTS + 1 .)) 
IF(YF(L).LT.FYY(UFFU).OR.YF(L).GT.FYY(l))THEN 
N = L 

GOTO 3200 

ENDIF 

YO=YF(L) 

IERR=0 

CALL KIUNI(UFFU ) UFFU > FYY ) l ( FZZ,lORDER > YO,ZO,lPTT,IERR) 

IF(IERR.NE.O) THEN 

WRITE(6,*)TERR=’,IERR 

ENDIF 

3150 ZF(L) = ZO(l) 

3200 DO 2350 L = 1,UFU-UFFU + K 
FYY(L) =YY(L-UFFU + K) 

2350 FZZ(L,1) = ZZ(L-UFFU + K,1) 

IPTT=-1 

IORDER=l 

DO 2400 L = 1,NCUTS 

FY(L) = YMAX-(YMAX-YY(I)) *(REAL(L)/ (CUTS+ 1 .)) 
IF(FY(L).LT.FYY(l).OR.FY(L).GT.YMAX) THEN 
N = L 

GOTO 2450 
ENDIF 
YO = FY(L) 
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IFCYO.LE.FYY(UFU-l)) IORDER=l 

M = UFU-UFFU + K 

IERR-0 

CALL KIUNI(M,M,FYY,1,FZZ,IORDER,YO,ZO,IPTT,IERR) 

IF(IERR.NE.O) THEN 

WRITE(6,*)’IERR=’,IERR 

ENDIF 

2400 FZ(L) = ZO(l) 

2450 IORDER= 1 

DO 2500 L=l,l-UFU+1 
FYY(L)=YY(UFU + L-1) 

2500 FZZ(L,1) = ZZ(UFU + L-1,1) 

IPTT=-1 

DO 2550 L=1,NCUTS-(N-1) 

YF(L) = YM AX- (YMAX-YY(I ) ) * ( REAL(L)/(CUTS + 2. -REAL(N) ) ) 
YO=YF(L) 

M = I-UFU + 1 
IERR=0 

CALL KIUN[(M,M,FYY,l,FZZ,IORDER,YO,ZO,IPTT,IERR) 

IFCtERR.NE.O) THEN 

WRITE(6,*)’[ERR=’ ) IERR 

ENDIF 

2550 ZF(L) = ZO(l) 

ENDIF 

IF(KPERCl.l).EQ.O) THEN 
WRITE(6,15) 1,IPT(1),0 
DO 1710 L = 1,IPT(1) 

1710 WRITE(6,20) Z(1,L),Y(1,L) 

WRITE(6,15) 2,25,0 
WRITE(6,20) ZZ(I,1),YY([) 

IF(ZWLT.GE.O.O.OR.N.EQ.l) THEN 
DO 130 L=NCUTS,1,-1 
130 WRITE(6,20) ZF(L),YF(L) 

ELSE 

DO 135 L=23-(N-1),1,-1 

135 WRITE(6,20) ZF(L),YF(L) 

DO 136 L=1,N-1 

136 WRITE(6,20) FZ(L),FY(L) 

ENDIF 

WRITE(6,20) ZZ(1,1),YY(1) 

ELSE 

WRITE(6,15) 1,IPT(1),ND 
DO 1750 K=1,KPER(1,1) 

1750 WRITE(6,20) Z(1,K),Y(1,K) 

M = NCUTS-IPT(1) + KPER(1,1) 

DO 1775 K=NCUTS-(N-1),M-(N-1 ) + 1,-1 
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1775 WRITE(6,20) ZF(K),YF(K) 

WRITE(6,15) 2,25,0 

WRITE(6,20) ZF(M-(N-1) + 1),YF(M-(N-1) + 1) 
IF(ZWLT.GE.O.O.OR.N.EQ.l) THEN 
DO 13010 L=M,1,-1 
13010 WRITE(6,20) ZF(L),YF(L) 

ELSE 

DO 13015 L=M-(N-1),1,-1 

13015 WRITE(6,20) ZF(L),YF(L) 

DO 13016 L= 1,N-1 

13016 WRITE(6,20) FZ(L),FY(L) 

ENDIF 

WRITE(6,20) ZZ(1,1),YY(1) 

ENDIF 

L=2 

500 L=L+ 1 

READ(7,25) XJ,YM(L),ZM(L) 

IF(YM(L).EQ.YM(L-1)) THEN 

L=L-1 

GOTO 500 

ENDIF 

IF(YM(L).GT.YPER) GOTO 500 
IF(KPER(3,l).EQ.O) THEN 
I = (L-1) + IPT(2) + NPT-KPER(2,2) 

NCUTS=23 
CUTS = 23. 

ELSE 
I = L-1 

CUTS = REAL(KPER(3,l)-l) + 23. 

NCUTS = 23 + KPER(3,1)-1 
ENDIF 
N = 1 

YMAX = 0.0 
LFFU = 0 
LFU = 0 

DO 505 K=1,L-1 
YY(K)=YM(K) 

505 ZZ(K,1) = ZM(K) 

IF(KPER(3,l).NE.O) GOTO 511 
DO 510 K=KPER(2,2),IPT(2) + NPT 
YY(K + L-KPER(2,2))=Y(2,K) 

510 ZZ(K + L-KPER(2,2),1) = Z(2,K) 

511 DO 515 K=1,I 
IF(YY(K).GT.YMAX) YMAX = YY(K) 

IF(K.EQ.l) GOTO 515 

IF(YY(K).LT.YY(K-1).AND.LFU.EQ.0) LFFU = K 
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IF(YY(K).GT.YY(K-1)) LFU = K 
515 CONTINUE 
K=1 

IF(LFU.EQ.O.OR.LFFU.EQ.I) THEN 
IPTT=-1 

DO 215 L= 1,NCUTS 

YF(L)=YMAX-(YMAX-YY(I)) *(REAL(L)/(CUTS + 1 .)) 

YO=YF(L) 

IERR=0 

CALL KIUNI(I,I,YY,l,ZZ,IORDER,YO,ZO,IPTT > IERR) 

IF(IERR.NE.O) THEN 

WRITE(6,*)’IERR=\IERR 

ENDIF 

215 ZF(L) = ZO(l) 

ELSE 

IF(LFFU.EQ.O) THEN 
K=0 

GOTO 320 
ENDIF 

DO 300 L=1,LFFU 
FYY(L)=YY(L) 

300 FZZ(L,1) = ZZ(L,1) 

IPTT=-1 

IORDER= 1 

DO 315 L=1,NCUTS 

YF(L)=YMAX-(YMAX-YY(l))*(REAL(L)/(CUTS+ 1.)) 
IF(YF(L).LT.FYY(LFFU).OR.YF(L).GT.FYY(l))THEN 
N = L 

GOTO 320 

ENDIF 

YO=YF(L) 

IERR=0 

CALL KIUNI(LFFU,LFFU > FYY,l l FZZ,lORDER J YO,ZO,IPlT,IERR) 

IF(IERR.NE.O) THEN 

WRITE(6,*) , [ERR= , ,IERR 

ENDIF 

315 ZF(L)=ZO(l) 

320 DO 235 L=1,LFU-LFFU + K 
FYY(L)=YY(L+LFFU-K) 

235 FZZ(L,1) = ZZ(L+LFFU-K,1 ) 

IPTT = -1 

IORDER=l 

DO 240 L= 1,NCUTS 

FY(L)=YMAX-(YMAX-YY(I))*(REAL(L)/(CUTS + 1.)) 
IF(FY(L).LT.FYY(l).OR.FY(L).GT.YMAX) THEN 
N = L 
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GOTO 245 

ENDIF 

YO=FY(L) 

IF(Y0.LE.FYY(LFU-1)) [ORDER=l 

M = LFU-LFFU + K 

IERR=0 

CALL KIUNI(M,M,FYY,l,FZZ,lORDER,YO,ZO,IPTT,IERR) 

IF(IERR.NE.O) THEN 

WRITE(6,*)’IERR=’,[ERR 

ENDIF 

240 FZ(L) = ZO(l) 

245 IORDER=l 

DO 250 L=1,I-LFU+1 
FYY(L)=YY(L+LFU-1) 

250 FZZ(L,1) = ZZ(L+LFU-1,1) 

IPTT=-1 

DO 255 L=1,NCUTS-(N-1) 

YF(L)=YMAX-(YMAX-YY(I))*(REAL(L)/(CUTS+2.-REAL(N))) 

YO=YF(L) 

M = I-LFU + 1 
IERR=0 

CALL KIUNI(M,M,FYY,l,FZZ,IORDER,YO,ZO,lPTT,IERR) 

IF(IERR.NE.O) THEN 

WRITE(6,*)’[ERR= , ,IERR 

ENDIF 

255 ZF(L) = ZO(l) 

ENDIF 

Q **********★*★***★★★*■★*****★*********** 

C WRITING THE INTERPOLATE LOWER SURFACE 
C IN SIMP OR EMTAC FORMAT 

Q ** ************************************ 

IF(KPER(3,l).EQ.O) THEN 
WRITE(6,15) 3,25,0 
WRITE(6,20) ZZ(1,1),YY(1) 

IF(ZWLT.GE.O.O.OR.N.NE.l) THEN 
DO 350 L=N-1,1,-1 
350 WRITE(6,20) FZ(L),FY(L) 

DO 355 L=1,NCUTS-(N-1) 

355 WRITE(6,20) ZF(L),YF(L) 

ELSE 

DO 220 L = 1,NCUTS 
220 WRITE(6,20) ZF(L),YF(L) 

ENDIF 

WRITE(6,20) ZZ(I,1),YY(I) 

WRITE(6,15) 4,IPT(ISC + 1),0 
DO 3050 L=1,IPT(ISC + 1) 
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3050 WRITE(6,20) Z(3,L),Y(3,L) 

ELSE 

M = NCUTS-KPER(3,1)-1 
WRITE(6,15) 3,25,0 
WRITE(6,20) ZZ(1,1),YY(1) 

IF(ZWLT.GE.O.O.OR.N.NE.l) THEN 
DO 3500 L=N-1,1,-1 
3500 WRITE(6,20) FZ(L),FY(L) 

DO 3550 L=1,M-(N-1) 

3550 WRITE(6,20) ZF(L),YF(L) 

ELSE 

DO 2200 L= 1,M 

2200 WRITE(6,20) ZF(L),YF(L) 

ENDIF 

WRITE(6,20) ZF(M + 1),YF(M + 1) 

WRITE(6,15) 4,IPT(4),0 
DO 3555 L=M + 1,NCUTS 
3555 WRITE(6,20) ZF(L),YF(L) 

DO 3560 L=KPER(3,1),IPT(4) 

3560 WRITE(6,20) Z(3,L),Y(3,L) 

ENDIF 
ENDIF 
GOTO 50 
999 STOP 
END 

SUBROUTINE KIUNI(MM,NN,X,KTAB,Y,IORDER,XO,YO,lPTT,IERR) 

INTEGER IORDER,MM,NN,lERR,KTAB,IPTT,KN,KOLD 

REAL X(NN),Y(MM,KTAB),XO,YO, SLOPE 

IF(IPTT.EQ.-l) THEN 

KN = 1 

KOLD = l 

ELSE 

KN = KOLD 
ENDIF 

IF(XO.LT.X(KN)) GOTO 9001 
9002 IF(KN.GE.NN) GOTO 9000 
IF(XO.GT.X(KN + 1 )) THEN 
KN = KN + 1 
GOTO 9002 
ELSE 

KOLD=KN 

IF(XO.LT.X(KN + l).AND.XO.GT.X(KN)) THEN 

SLOPE = ((Y(KN + l,KTAB)-Y(KN,KTAB))*(XO-X(KN)))/(X(KN + l)-X(KN)) 

YO=Y(KN,KTAB) + SLOPE 

ENDIF 

ENDIF 
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9001 IF(XO.LT.X(NN)) GOTO 9000 
IF(KOLD.EQ.l) KN = 2 
9003 IF(KN.GT.NN) GOTO 9000 
IF(XO.LT.X(KN)) THEN 
KN = KN + 1 
GOTO 9003 
ELSE 

KOLD = KN 

IF(XO.GT.X(KN).AND.XO.LT.X(KN-l )) THEN 

SLOPE = ((Y(KN,KTAB)-Y(KN-l,KTAB))*(XO-X(KN-l)))/(X(KN)-X(KN-l)) 

YO=Y(KN-l,KTAB) + SLOPE 

ENDIF 

ENDIF 

9000 CONTINUE 
END 
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